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V ielleicht klingt die Über¬ 
schrift ein wenig zu verlo¬ 
ckend, aber mit dem 
Video Title Shop von Datasoft 
lassen sich schon recht nette 
Filmehen produzieren. 

Das Programm wird bereits seit 
einigen Monaten auf dem 


D ank der langsamkeit des 
alten BASIC-Interpreters 
sind zwischen einige 
Compiler-Versionen für den 
C64 erhältlich. Fast alle erzeu¬ 
gen ausschließlich P-Code. Der 
P-Code ist als eine Art Spra¬ 
che, die zwischen BASIC und 
Maschinensprache einzu¬ 
ordnen ist, zu verstehen. Um 
ausgeführt werden zu können, 
benötigt auch dieser Code ei¬ 
nen Interpreter - ein Runtime- 
modul. Das Modul arbeitet 


Softwaremarkt angeboten. 
Doch zunächst die Frage, um 
was es in diesem Programm 
geht. Es wird wohl unter 
unserer Leserschaft einige 
auserwählte Menschen geben, 
die sich stolzer Be¬ 
sitzer eines Videorekor- 


zwar schneller als BASIC, ist 
aber spürbar langsamer als 
Maschinensprache. Der Ge¬ 
schwindigkeitsgewinn steigert 
sich dabei um den Faktor 5 bis 
10 . 

Der BASIC-BOSS-Compiler 
dagegen erzeugt auf direktem 
Weg einen Maschinencode. 
Vor dem Test war ich ges¬ 
pannt, ob der gepriesene 
Compiler hält, was der Autor 
des Handbuchs verspricht. 
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Sinnvoll 

U nter dem Motto, ”das 
Ganze ist die Summe 
seiner Teile", entsteht ein 
über aus nützliches Produkt. 
MakroDat(= MD; Dateiverwal¬ 
tung) und MakroText (= MT; 
Textverarbeitung sind of- 
fentsichtlich gemeinsam entwi¬ 
ckelt worden und in ihrer 
Bedienung aufeinander abge¬ 
stimmt. Mit erscheint es daher 
sinnvoll, diese beiden Pro¬ 
gramme gemeinsam vorzustel¬ 
len. 

Die Handbücher sind knapp 
gehalten, aber leicht verständ¬ 
lich. Gut gefällt mir, daß am An¬ 
fang jeweils die Tastatur 
beschrieben wird und auch die 
gängigen Begriffe zum Thema 
(z. B. "Index” oder "Fließtext") 
einführend erläutert werden. 
Auch ein Computer-Anfänger 
kann mit dieser Einführung 
problemlos zurechtkommen. 

Die Tastaturbelegung des C64 
ist in beiden Programmen fast 
völlig identisch. Nur in einem 
einzigen Punkt unterscheiden 
sich MD und MT voneinander. 

Bei MD muß man Drucker- 
Codes mit F7, bei MT mit F8 in 
den Text einfügen. Auch die¬ 
ser Unterschied hätte vermie¬ 
den werden können. Die 
Menüführung ist sehr bediener¬ 
freundlich gestaltet. Mit Fl 
wählt man eine funktion aus, 
mit F2 bricht man sie ab und 
kehrt in das vorherige Menü 
zurück. Daß man das Editieren 
einesTextes von MT mitSHIFT 
RUN/STOP statt mit F2 been¬ 
den muß, erscheint mir eben¬ 
falls als ein unnötiges Abwei¬ 
chen vom Prinzip. 
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Hey, Boss! 






















EDITORIAL 

Hallo Freaks! 

Endlich ist es so weit! Die 
"Schwarz-Schilling-Truppe” hat es 
geschafft, uns zu verkabeln. Ab so¬ 
fort sind wir für Euch Tag und Nacht 
erreichbar, denn unsere Mailbox 
läuft jetzt auf Hochtouren. Zu allen 
Zeitschriften unseres Verlags (u.a. 
Compute mit) könnt Ihr von nun an 
Informationen liefern oder solche 
abrufen. Der Ubertragungsparame- 
ter (8-Bit, 1 Stop-Bit, keine Parität) 
entspricht dem allgemeinen Stan¬ 
dard. Natürlich braucht Ihr noch die 
Mailbox-Nummer unter der Ihr uns 
erreichen könnt. Diese lautet wie 
folgt: 05651/30015! 

Neben der Möglichkeit, daß freie 
Mitarbeiter Texte und Tips & Tricks 
über die Mailbox rüber jagen kön¬ 
nen, existiert auch der angekün¬ 
digte BTX-Anschluß in unserem 
Haus. Eure Mitteilungen könnt Ihr 
uns über die Nummer 05651/30016 
zukommen lassen. Die Infos auf 
diesen heißen Drähten sind sicher¬ 
lich für beide Seiten sehr interes¬ 
sant. So weit, so gut, in der 
nächsten Ausgabe verraten wir 
Euch noch ein wenig mehr. 
Interessant dürfte auch wieder 
diese Compute mit-Ausgabe sein, 
wenn Ihr einmal genau reinschaut. 
Neben aktuellen Informationen ha¬ 
ben wir mit "Kosmodrom” einen ab¬ 
soluten Knüller unter den Listings, 
den sich keiner entgehen fassen 
sollte. Viel Spaß wünscht Euch 

Thomas Brandt 

(Chefredakteur) 
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Comfort-List, Old- und Merge-Routine, Win¬ 
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... und so 
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Versand erfolgt per Nachnahme 
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vice des Tronic-Verlags. Alle Anleitungen sind 
daher dem entsprechenden Heft zu entnehmen. 
Wollen Sie ältere Software, bestellen Sie bitte das 
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Best.-Nr. CSOK-1/3 Kassette 30,- DM 
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Crazy Factory, Das Weltspiel 

Sonder-Service: Jetzt können Sie bis 19.00 Uhr 
in unserem Verlag Bestellungen aufgeben. 
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REPORT 


D er Video Title Shop bietet 
nun diesen Personen die 
Möglichkeit, eigene Vi¬ 
deoclips zu erstellen. Mit die¬ 
sen Eigenkreationen läßt sich 
zum Beispiel der "Familien- 
schocker” vom letzten Urlaub, 
der mit der Videokamera für die 


daß eigentlich keine Probleme 
auftreten dürften. Die Aus¬ 
führlichkeit der Anleitung er¬ 
leichtert dabei das Verständnis 
des in Englisch verfaßten 
Textes. 

Nachdem das Programm gela¬ 
den ist, besteht der nächste 


Computer- Video 
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Nachwelt festgehalten wurde, 
durch einen geeigneten Vor¬ 
spann, welcher den Ort und die 
Hauptakteure dem staunenden 
Publikum vorstellen kann, ent¬ 
sprechend versüßen. Anderer¬ 
seits wäre auch ein 
"kommerzieller” Nutzen 
denkbar, da mit diesem Pro¬ 
gramm auf einfache Weise 
kleine "Computerfilme” erstellt 
werden können, die beis¬ 
pielsweise in einem Geschäft 
eine Ware dem Käufer 
schmackhaft machen. 

Ihr könnt Euch denken, daß ich 
die Liste der Beispiele beliebig 
fortsetzen könnte. Natürlich 
darf man von diesem Pro¬ 
gramm keine vollanimierten 
Computerclips erwarten, wie 
man sie zu Genüge aus dem 
Fernsehen kennt. Dies würde 
die Rechenleistung, Speicher¬ 
kapazität und auch die Grafik¬ 
fähigkeiten eines C-64 
überfordern. Der Anwender 
muß sich daher mit kleineren 
Videofilm-Projekten begnügen, 
die sich in ihrem späteren Aus¬ 
sehen durch eine typische mit¬ 
tlere C-64 Grafik auszeichen. 
Der eigentliche Sinn und 
Zweck dieses Programms liegt 
darin, bewegte Grafiken und 
Schriften zu erstellen, um diese 
während des späteren Ablaufs 
mit dem Videorekorder aufzu¬ 
nehmen und später als Vor¬ 
spann etc. zu verwenden. 

Um überhaupt etwas aufzeich¬ 
nen zu können, muß man zu¬ 
nächst den Videorekorder 
zwischen Computer und Moni¬ 
tor bzw. Fernseher schalten. 
Diese Vorbereitung wird in der 
Anleitung genau erläutert, so 


Schritt in der Erstellung des¬ 
sen, was aufgezeichnet wer¬ 
den soll. 

Die Effekte, die sich mit diesem 
Programm erreichen lassen, 
reichen von einem einfachen 
Mischen von Text und Grafik 
bis zu einer Abfolge mehrerer 
Grafikseiten, die natürlich mit 
Text gemischt und gescrollt 
werden können. Auch eine 
Pausefunktion und Übergänge 
wie z.B. "Ineinanderfizzeln" 
sind vorhanden (zwei Grafiksei¬ 
ten, die eine Seite wird 
punktweise gelöscht, während 
die andere darunter erscheint, 
so daß ein fließender Übergang 
entsteht). 

Einige weitere Möglichkeiten 
werden dadurch eröffnet, daß 
eine einzelne Grafikseite über 
die normale Größe eines Gra¬ 
fikbildschirmes hinausreichen 
kann. Die Begrenzung für den 
Umfang einer Seite ist logi¬ 
scher Weise der noch freie 
Speicherplatz. Das Programm 
benutzt zur Darstellung auf 
dem Bildschirm den Multico- 
lourmodus (160x200 Punkte). 
Alle Funktionen des Pro¬ 
gramms können nur über Ta¬ 
statur erreicht werden, was 
meiner Meinung nach einen 
der Mängel des Programmes 
darstellt. Ein anderer 
Schwachpunkt ist die Art des 
Scrollens. Von einem butter¬ 
weichen Scrolling ist das Pro¬ 
gramm meilenweit entfernt. Die 
vielen anderen Effekte, die ich 
natürlich nicht alle aufführen 
kann, sind hingegen sehr pas¬ 
sabel umgesetzt worden. An¬ 
ders als bei anderen 
Programmen dieses Genres 


gestaltet sich auch das Einfü¬ 
gen von Text in diesem Pro¬ 
gramm problemlos. 

Der Clou des ganzen Pro¬ 
grammpakets ist aber ein mit¬ 
geliefertes Zeichenprogramm 
der gehobenen Mittelklasse, 
mit dessen Hilfe Ihr vor dem ei¬ 
gentlichen Erstellen wunder¬ 
schöne Grafiken selbst 
kreieren könnt. Selbstverständ¬ 
lich können auch mit anderen 
Programmen erstellte "Fremd¬ 


grafiken” benutzt werden. Die¬ 
ses Zeichenprogramm bietet 
dem Anwender aber eine 
Reihe exzellenter Funktionen, 
durch die das Zeichnen nicht 
mehr schwerfallen kann. Doch 
auch hier stört wieder das 
Manko der Tastatursteuerung. 
Wenn man sich vertippt, kön¬ 
nen ungewollte und ausgefal¬ 
lene Effekte eintreten. 

Nach den genannten Vorberei¬ 
tungen hat der Anwender sein 
Ziel erreicht, so daß er freudig 
zum Aufzeichnen schreiten 
kann. Nun, dieser letzte Arbeit¬ 
sabschnitt müßte eigentlich 
auch der einfachste sein, wäre 
da nicht eine langsame 1541, 
die die Aufnahme teilweise 
ganz gehörig verzögern kann. 
Während des Abspielens wer¬ 
den aufgrund des kleinen 
Speichers des C-64 häufig ein¬ 
zelne Grafiken, Zeichensätze 
etc. nachgeladen, so daß eine 
ungewollte Pause eintreten 
kann. Die Fehler muß man 
entweder durch ein geschick¬ 
tes Hantieren mit der Pauseta¬ 


ste am Videorekorder behe¬ 
ben, oder man muß nachträg¬ 
lich das aufgezeichnete 
Material aufbereiten und län¬ 
gere Pausen herausschneiden. 
Auf der Programmdiskette be¬ 
finden sich neben dem Video 
Title Shop und dem Zeichen¬ 
programm auch einige mitge¬ 
lieferte Grafiken und andere 
Accesoirs. Desweiteren ist 
auch schon eine Erweite¬ 
rungsdiskette mit zahlreichen 
neuen Grafiken erschienen. 


Fazit: Video Title Shop bietet 
dem Anwender einiges, wobei 
man jedoch immer die Grafik¬ 
fähigkeiten des C-64 im Auge 
behalten muß. Es stellt sich die 
Frage, ob Euch die Pro¬ 
duktqualität ausreicht. Wenn 
man von der englischen Anlei¬ 
tung, der unkomfortablen 
Steuerung und dem Ru- 
ckeiscrolling absieht, scheint 
dieses Programm für den 
Heimgebrauch durchaus geig- 
net zu sein. Deshalb ist vom 
Kauf nicht abzuraten. 


Positiv: zahlreiche Effekte, Zei¬ 
chenprogramm wird mitgelie¬ 
fert, zahlreiche Accessoirs 
Negativ: englische Anleitung, 
unkomfortable Steuerung, teil¬ 
weises Ruckelscrolling 

Programm: Video Title Shop, 
System: C-64/128, Hersteller: 
Datasoft, Chatsworth, USA, 
Bezugsquelle: Softwarever¬ 
sand Herbert Müller, Dorfstr. 1, 
8852 Rain-Unterpeiching 
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REPORT 


Sinnvolle Nutzung 
des C-64 
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W o bei anderen Pro¬ 
grammen bis zu vier 
Disketten benötigt wer¬ 
den (je eine für Datei- u. 
Textprogramm, Daten und 
Texte), kommt man bei Makro- 
Dat und MakroText mit einer 
einzigen aus. Dank des fehlen¬ 
den Kopierschutzes kann man 
die beiden Programme sowie 
die eigenen Dateien auf einer 
einzigen Diskette unterbringen 
(MD u. MT belegen zusammen 
nur ca. 220 Blocks). Die Pro¬ 
gramme wirken sehr komfor¬ 
tabel. 

Will man z.B. einen kurzen Se¬ 
rienbrief an ein paar Freunde 
schicken, muß man sich nicht 
mehr als "Disk-Jockey” betäti¬ 
gen. Konsequenterweise be¬ 
nutzen MD und MT dieselben 
Systemdateien. In der System¬ 
datei, die beim Drucken be¬ 
nutzt wird, kann man für 
sämtliche 255 ASCII-Zeichen 
eine Codewandlung definieren, 
d.h. der Benutzer kann selbst 
bestimmen, für welches 
Bildschirm-Zeichen welcher 
Code an den Drucker gesen¬ 
det wird. Außerdem kann man 
für 17 spezielle Zeichen (A-Q 
invers) eine jeweils bis zu 18 
Zahlen Sange Code-Folge defi¬ 
nieren, mit der man Drucker- 
Funktionen ansteuern kann, 
z.B. das Anwählen verschiede¬ 
ner Schriftarten oder das Ein¬ 
schalten von automatischem 
Unterstreichen. Zusätzlich gibt 
es noch ein Drucker-Typ-Menü, 
bei dem man u.a. die Papier¬ 
länge einstellen kann. Insge¬ 
samt also ist eine einfache, 
aber doch sehr flexible Drucke¬ 
ranpassung möglich. Man 
kann beliebig viele Systemda¬ 
teien unter verschiedenen Na¬ 
men anlegen und nach der 
jeweiligen Anwendung benen¬ 
nen. Auch Schrift- und Hinter¬ 
grundfarbe des Bildschirms 
können ausgewählt werden. 
Man kann festlegen, daß alle 
eigenen Systemeinstellungen 
automatisch beim Pro¬ 
grammstart geladen werden. 
Ein Manko ist allerdings die 
Druckgeschwindigkeit. Jede 
Zeile wird einzeln zum Drucker 


geschickt. Die Routine benötigt 
dafür, wahrscheinlich wegen 
einer uneffizienten Code- 
Wandlung, etwa 5 Sekunden. 
Beide Programme arbeiten 
menü- und dialogorientiert. Der 
Benutzer bekommt ständig 
eine kleine Auswahl verschie¬ 
dener Möglichkeiten angebo- 
ten oder muß auf eine Frage 
antworten (meist mit Ja oder 
Nein). Die Programme sind da¬ 
durch zwar verhältnismäßig 
bedienungssicher, wirken aber 
manchmal auch umständlich. 
Speziell zu MakroDat: Beim 
Aufruf einer Datei müssen der 
Name der Datei selbst sowie 
der der Maske einzeln einge¬ 
geben werden, da Maske und 
Datei grundsätzlich völlig ge- 


Daten der Datei A mit der 
Maske von Datei B bearbeiten. 
Einen rechten Vorteil kann ich 
darin aber nicht erkennen, nur 
die Gefahr von erheblichen 
Fehlbedienungen. Eine Maske 
(etwa Bildschirmgröße) zu er¬ 
stellen, ist sehr einfach. Man 
fährt mit dem Cursor über den 
Bildschirm und gibt den ge¬ 
wünschten Text (oder Block- 
Graphik-Zeichen für eine gra¬ 
phische Gestaltung) ein; Lage 
und Größe der Datenfelder 
werden mit der Leertaste fest¬ 
gelegt. Dabei muß angeben 


c- 

werden, ob das jeweilige Da¬ 
tenfeld nur Ziffern, nur Buch¬ 
staben oder beides aufnehmen 
soll und welche Felder Index¬ 
felder sind. Indexfelder sind 
Felder, deren Inhalt später als 
Suchkriterium dient. Leider 
muß man bereits beim Anlegen 
der Datei die Anzahl der zu¬ 
künftigen Datensätze festle¬ 
gen. Eine nachträgliche 
Änderung ist nicht möglich. Es 
empfiehlt sich daher, die ma¬ 
ximal mögliche Zahl für die Ge¬ 
samtlänge der Indexfelder 
anzugeben. MD bietet den 
üblichen Grundstock an 
Funktionen wie Eingeben, Än¬ 
dern, Löschen und Ausdrucken 
von Datensätzen. Das Sortie¬ 
ren bzw. Suchen gemäß be- 


Adressen mit PLZ 4000) ist je¬ 
doch umständlich und schwie¬ 
rig. Die nicht nur beim C64 
naheliegende Methode mit den 
"Jokern” * und ? wird nicht 
benutzt. Stattdessen verwen¬ 
det man eine Art "Block- 
Methode”. Die Maske er¬ 
scheint am Bildschirm, man 
schreibt in die Indexfelder sei¬ 
nen Suchtext und wählt 
anschließend aus der Liste der 
Vergleichsoperatoren aus, z. B. 
<, < *=, =, usw.. Will man auf 
ein Feld ein zweites Kriterium 
an wenden, muß der vorhan- 


Bericht von Seite 1 


dene "Block” ( = Maske) vom 
Bildschirm verschwinden, und 
man muß einen zweiten Text in 
einen neuen Block schreiben. 
Für reine Zahlenfeldern ist die 
Vorgehensweise nicht sonder¬ 
lich umständlich. Sucht man 
aber beispielsweise alle Perso¬ 
nen, deren Nachname mit ”D” 
beginnt, so muß man erst einen 
"Block” mit dem Text ”D” und 
dem Kriterium ” < = ” und im 
Anschluß einen zweiten mit 
dem Text ”DZ" und dem Krite¬ 
rium ” < = ” definieren. Erst 
dann funktioniert^. Umständli¬ 
cher geht's kaum! Das Lö¬ 
schen einzelner Datensätze 
"funktioniert” leider ähnlich, 
nur daß die gefundenen Daten¬ 
sätze nicht angezeigt, sondern 
ohne Sicherheitsabfrage (I) ge¬ 
löscht werden. Ein gezieltes 
Löschen eines auf dem 
Bildschirm sichtbaren Daten¬ 
satzes ist nicht möglich. Man 
muß sehr aufpassen, will man 
nicht versehentlich wichtige 
Daten löschen. 

Speziell zu MakroText: In Re¬ 
lation zu dem geringen Preis 
hat das Programm eine ganze 
Menge zu bieten. Alle wichti¬ 
gen Cursor- und Editier- 
Funktionen, Tabulatoren und 
Umschaltungen zwischen 
Einfüge- und Überschreib- 
Modus sind vorhanden. -Beim 
Einfügemodus wird ein vor¬ 
handener Text nicht gelöscht, 
sondern beim Eintippen nur 
verschoben. Weiterhin bietet 
das Programm die üblichen 
Blockoperationen (Löschen, 
Kopieren, Verschieben), 
"feste” Leerzeichen (die beim 
Zeilenumbruch wie Buchsta¬ 
ben behandelt werden), eine 
Suchen/Ersetzen-Funktion, die 
sogar den Joker ”?” akzeptiert 
und vier Floskeltasten. Die Me¬ 
nüfunktionen liefern keinen rie¬ 
sigen Komfort, sind aber für 
den Hausgebrauch durchaus 


trennt sind. Man kann auch die stimmter Kriterien (z. B. alle 
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zufriedenstellend. Es können dürfte dies allerdings kaum cken) wird unverändert in den 

beliebig viele "Formulare”, die Bedeutung erlangen. Ist die MT-Text übernommen. Daraus 

die wichtigsten Informationen Zeilenlänge größer als 40 Zei- entsteht das Problem, daß die 

über die Seitenaufteilung beim chen, scrollt der Bildschirm von Zeilenlänge des Textes exakt 
Drucken enthalten, eingerichtet links nach rechts. Mit dem Me- genauso groß sein muß wie die 
und unter eigenem Namen ab- nüpunkt "Text zeigen” kann Zeilenlänge der Maske. An¬ 
gespeichert werden. Man hat man sich den formatierten Text dernfalls erscheint die Print- 
dann für die verschiedensten auf einem 80-Zeichen- Maske seltsam "verschoben” 
Zwecke stets das passende Bildschirm ansehen und mit im Text, da die Print-Maske 
Formular zur Hand. Sogar eine den Cursor-Tasten dabei auf- Zeichen für Zeichen eingefügt 
automatische Seiten- und abscrollen, dies aber lei- wird. Dabei wird keine Rück¬ 

sicht auf die Absatzeinteilung 
genommen. Auch kann man in 
die Print-Maske kein Absatz- 
Ende-Zeichen (für Fachleute: 
CR + LF) eingeben. 

Fazit: Insgesamt gesehen ist 
MakroText das deutlich bes¬ 
sere und ausgereiftere Pro¬ 
dukt. Das Preis/Leistungsver¬ 
hältnis beider Produkte ist gut. 
In den wesentlichen Funktio¬ 
nen leistet auch MakroDat al¬ 
les, was man so braucht. -Nur 
leider etwas umständlich! 


Nummerierung ist möglich, der nur zeilenweise. Eine echte Wegen dieser Produkte freud- 
Zwar ist die Zeilenlänge varia- Schwäche habe ich bei der volle Luftsprünge zu veranstal- 
bel, aber MT zieht automatisch Serienbrief-Funktion festge- ten, wäre übertrieben, 
vom linken und rechten Rand stellt. Die Ursache dieser Dennoch bin ich der Meinung, 
je fünf Positionen ab, so daß Schwäche ist aber nicht bei daß das Paket aus MD und MT 
man bis janz zum rechten, nie MT, sondern bei MD zu su- eine durchaus sinnvolle Low- 
aber bk-ur i linken Papierrand chen. Das Print-File von MD Cost-Lösung für alle Zwecke 
schreiben kann. -In der Praxis (eine "Maske” zum Ausdru- des "Hausgebrauchs” liefert. 



Den ersten Pluspunkt gewinnt 
der BOSS bereits im Vorwort 
des Handbuchs! Es wird be¬ 
schrieben, wie sich der BOSS 
selbst kopieren kann und daß 
man mit Compiler und 
BASIC-Guelltext auf einer ein¬ 
zigen Diskette arbeiten kann. 


einen 2-Pass-Compiler. Im er¬ 
sten Durchgang wird der 
BASIC-Quelltext von Diskette 
geladen und analysiert. Im 
zweiten Durchgang wird das 
ablauffähige Maschinenpro¬ 
gramm direkt auf Diskette ge¬ 
schrieben. Notwendige Rou- 


Code-Compiler das Runtime- 
Modul stets in voller Länge an¬ 
gehängt . Das Compilat von ”1 
PRINT 1” verlängert sich da¬ 
durch im Verhältnis zum ”1 
REM” um etwa 240 Bytes . 
Neben diesen genannten, nicht 
zu unterschätzenden Qualitä- 


Bericht von Seite 1 


Boss, was sonst? 


Der lästige Diskettenwechsel tinen werden dabei aus der ten sind es im wesentlichen 
entfällt, und die Arbeit wird an- internen Bibliothek des drei Aspekte, die die Lei¬ 
genehm verkürzt. Nach dem BOSS-Compilers hinzufügt, stungsfähigkeit eines Compi- 
Compilieren springt der BOSS BOSS "linkt” tatsächlich nur lers bestimmen, 
automatisch ins Commodore- die nötigsten Routinen hinzu. Einer dieser mir wesentlich er- 
BASIC. Man kann direkt nach Seine Arbeitsweise ist daher scheinenden Aspekte ist die 
der Eingabe von NEW den weitaus ökonomischer als die Länge des erzeugten Codes. 
Quelltext (zur Korrektur) oder des P-Code-Compiler. Unab- Bei effizienten P-Code- 
das Compilat (zum Test) laden hängig davon, ob die enthalte- Compilern wird der gesamte 
und starten. nen Routinen vom Programm Code im Schnitt um ca. 10-30 

Beim BOSS handelt es sich um benötigt werden, wird beim P- % länger als der Quelltext. Bei 
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Insbesondere dann, wenn der 
Schwerpunkt auf der Textve¬ 
rarbeitung liegt und man die 
Dateiverwaltung nur gelegent¬ 
lich benutzt, kann ein Kauf 
empfohlen werden. Abraten 
würde ich von der Entschei¬ 
dung, nur MakroDat (ohne Ma¬ 
kroText) anzuschaffen. 


Stephan del la Motte 


Positiv: Sehr komfortable, fle¬ 
xible Installation. Einfache, bei 
beiden Programmen gleiche 
Bedienung. Kurze, gut ver¬ 
ständliche Anleitung. 

Preis/Leistungs-Verhältnis 
(insbesondere MakroText). 
Negativ: Ausdrucken sehr 
langsam. MakroDat deutlich 
schwächer und umständlicher. 


Programm: MakroDat & Ma¬ 
kroText. System: C64 mit 
Floppy. Preis: einzeln ca. 40.-, 
zusammen ca. 70.-. 
Hersteller/Bezugsquelle: Raab 
Bürotechnik, Friedhofstr. 36, 
8605 Hallstadt. 


dem einzigen anderen mir be¬ 
kannten C-64-Compiler, der 
reinen Maschinen-Code erzeu¬ 
gen kann, nämlich BASIC64, 
wird der Code gut zwei- bis 
dreimal so lang. Unter Ausnut¬ 
zung diverser Optimie¬ 
rungsmöglichkeiten erzeugt 
hingegen der BOSS ein Pro¬ 
gramm, das im Schnitt nur ca. 
50-70 % länger ist als der 
Quelltext. Der BOSS-Compiler 
arbeitet daher unerreicht 
effektiv. 

Die zweite und meines Erach¬ 
tens wichtigste Qualität liegt in 
den Optimierungsmöglichkei¬ 
ten des BOSS, den Compiler- 
Direktiven. Im BASIC-Listing 
hinter REMs versteckt, geben 
diese Compiler-Direktiven dem 
Compiler Anweisungen, wie er 
sich zu verhalten hat. Über die 
Compiler-Direktiven kann der 
Benutzer Einfluß auf den er¬ 
zeugten Code nehmen. BOSS 
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Geschwindigkeitsvergleich 

Befehi_oh. Optim. mit Optim. 


bietet hier ein ganzes Paket 
leistungsfähiger Befehle, u. a. 
zur Optimierung der FOR- 
NEXT-Schleife und des IF- 
THEN-Sprunges. Interessant 
und ungewöhnlich sind die Di¬ 
rektiven zur Speicherverwal¬ 
tung, zur Lage des Compilats 
im RAM und zur Deklaration 
der Datentypen. Zusätzlich zu 
den vom BASIC-V2 bekannten 
Typen INTEGER, REAL und 
STRING kann der Compiler die 
Typen BOOLEAN (Wertebe¬ 
reich nur 0 und -1), BYTE (0- 
255) und WORD (0-65535) ver¬ 
arbeiten. Insbesondere bei 
Verwendung der maschinen¬ 
nahen Typen BYTE und 
WORD wird das Compilat 
ebenso maschinennah und 
entsprechend kurz und schnell. 
Mit einfachen Befehlen kann 
man die Aufteilung des Ar¬ 
beitsspeichers angeben und 
selbst festlegen, wo innerhalb 
des RAM die BOSS-Routinen, 
der Programm-Code, die Va¬ 
riablen, usw. abgelegt werden 
sollen. Man kann sogar die ein¬ 
zelnen ROM-Bereiche flexibel 
ein- und ausblenden, so daß 
einem im Extremfall die gesam¬ 
ten 64 KB des C-64 zur vollen 
Verfügung stehen. Ich hab’s 
ausprobiert! Das Listing ”10 
DIM A(10000): PRINT 

A(10000)” (ein Feld mit REAL- 
Zahlen, wohlgemerkt!) funktio¬ 
niert anstandslos. Als besonde¬ 
res "Bonbon” kann man (durch 
"Weglassen” der bekannten 
BASIC-Sys-Zeile) z. B. ein 
Maschinensprache-Unterpro¬ 
gramm erzeugen, das mit SYS 
49152 aufgerufen wird. Ver¬ 
sprecht Euch davon aber nicht 
zuviel! Ähnlich wie bei allen 
anderen Compilern ist auch 
beim BOSS die Relation der 
Länge des Compilats zur 
Länge des Quelltextes um so 
ungünstiger, je kürzer das Pro¬ 
gramm ist. 


BASIC-V2- 
Befehle 


Einige der BASIC-V2-Befehle 
sind verbessert worden: BOSS 
kann z. B. ein RESTORE 


(Zeilennr.) verarbeiten. Den 
LOAD-Befehl hat man in der 
Weise verändert, daß das Pro¬ 
gramm nach dem Ausführen 
des LOAD nicht mehr an den 
Programmanfang springt, son¬ 
dern ganz normal im Pro¬ 
gramm weiterarbeitet. Auf 
diese Weise ist es endlich auch 
im C-64-BASIC während des 
Programmablaufs möglich, be¬ 
stimmte Programmroutinen 
(oder z. B. HiRes-Graphiken) 
unter Verwendung des 
LOAD-Befehls nachzuladen. 
Dieser Vorgang benötigt weit¬ 
aus weniger Zeit als die Be¬ 
fehlsfolge OPEN/GET/INPUT. 
Kommen wir zur Geschwindig¬ 
keit des vom BOSS erzeugten 
Compilats. Gell, darauf habt Ihr 
doch die ganze Zeit schon ge¬ 
wartet? 

Um möglichst objektive und 
aussagefähige Werte zu ermit¬ 
teln, habe ich ein eigenes 
Benchmark-Programm ge¬ 
schrieben. Zuerst habe ich die 
Zeit einer "leeren” FOR- 
NEXT-Schleife gemessen. 
Anschließend habe ich jeweils 
den zu testenden Befehl in die 
Schleife gesetzt und geprüft, 
wieviel Zeit die Abarbeitung der 
Schleife benötigt. Die Differenz 
der Messungen belegt, wieviel 
Zeit die Ausführung des Be¬ 
fehls innerhalb der Schleife 
benötigt. Die Werte habe ich 
anschließend ins Verhältnis zu 
den Zeiten des uncompilierte 
BASICs gesetzt und den Ge¬ 
schwindigkeitsgewinn gegen¬ 
über BASIC errechnet. 
Wiederholungen der Tests er¬ 
folgten dann einmal für ein 
Compilat ohne und einmal für 
ein Compilat mit sämtlichen 
Optimierungsmöglichkeiten 
des BOSS. Im Test verdeutlicht 
sich, wie positiv sich die 
Compiler-Anweisungen be¬ 
merkbar machen. 

Ein Stern (*) hinter dem Befehl 
bedeutet, daß beim optimierten 
Compilat die maschinennahen 
Datentypen BYTE, bzw. 
WORD verwendet worden 
sind. 


FOR..NEXT (*) 

A= B + C (*) 

A=B*C 

String-Operationen 
PEEK/POKE (*) 

GOTO 

GOSUB.. 

RETURN 
IF A THEN (*) 

IF A<B THEN (*) 

PRINT "TEXT” 
Integer-Array-Zugriff (*) 
String-Array-Zugriff 

Man sieht deutlich: Mit einer 
maschinennahen Daten- und 
Befehls-Struktur können gewal¬ 
tige Geschwindigkeitsgewinne 
erzielt werden. Wie bei allen 
anderen sind auch beim 
BOSS-Compiler die REAL- und 
STRING-Daten eine Schwach¬ 
stelle. Die Werte, die der BOSS 
dabei erzielt, können sich aber 
im Vergleich mit anderen 
Compilern durchaus sehen 
lassen. Wenn man dem Hin¬ 
weis des Autors folgt und 
Strings durch BYTE-Folgen er¬ 
setzt und diese dann z. B. di¬ 
rekt in das Bildschirm-RAM 
POKEt, wird das BASIC-Listing 
zwar ein wenig umständlicher, 
es sind aber erhebliche Ge¬ 
schwindigkeitssteigerungen 
möglich. 

Obwohl das Handbuch recht 
anschaulich und leicht ver¬ 
ständlich erklärt, ist der 
BASIC-BOSS kein Werkzeug 
für Anfänger. Man sollte das 
Commodore BASIC-V2 schon 
einigermaßen beherrschen und 
Grundkenntnisse über die Ar¬ 
beitsweise des C-64 besitzen. 
Wenn man die Möglichkeiten 
des BOSS wirklich ausnutzen 
will, muß bei der Entwicklung 
des BASIC-Listings bereits die 
spätere Compilierung im Auge 
behalten werden. Ein guter 
Programmier-Stil ist unum¬ 
gänglich. Ansonsten besteht 
die Gefahr, daß der BOSS sich 
mit einer Fehlermeldung 
verabschiedet. 


1.3 

55.3 

3.9 

192.7 

2.0 

2.1 

4.4 

4.5 

3.4 

70.0 

6.7 

343.5 

15.4 

212.3 

7.8 

299.2 

9.5 

206.3 

1.2 

1.3 

2.7 

77.4 

2.5 

4.5 


Ein Wermuts-Tropfen: Der 
BOSS ist zur Zeit noch nicht 
ganz fertiggestellt. So ist z. B. 
DEF FN noch nicht implemen¬ 
tiert. Der Autor verspricht aber 
einen kostenlosen Update- 
Service, der auch für die Besei¬ 
tigung noch unentdeckter Feh¬ 
ler Gültigkeit besitzt. Da der 
Compiler schon jetzt 
Außergewöhnliches bietet und 
ich keine Fehler festgestellt 
habe, kann ich den BOSS je¬ 
dem Programmierer nur 
wärmstens empfehlen. Ich 
schätze, daß der BOSS 90 % 
dessen, was früher Assembler 
geleistet hat, übernehmen 
kann. Dabei denke ich an alle 
Vorteile einer höheren Pro¬ 
grammiersprache, an kürzere 
Entwicklungszeiten und gerin¬ 
gere Fehleranfälligkeit. 

Stephan de la Motte 

Positiv: Erzeugt sehr schnellen 
und relativ kurzen 
Maschinen-Code, flexible 
Speicherverwaltung, effiziente 
Datentypen, BASIC-Befehle z. 
T. verbessert, kein Kopier¬ 
schutz, excellentes 

Preis/Leistungs-Verhältnis. 
Negativ: Noch nicht endgültig 
fertiggestellt. 

Programm: BASIC-BOSS. Sys¬ 
tem: C-64 mit Floppy. 

Preis: ca. 100.- 
Hersteller/Bezugsquelle: 

T. Herrmann, Poststr. 6, 

7321 Börtlingen. 
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Leser- & Meckerecke 


Bestätigung 

Als C64-Benutzer kaufe und 
lese ich seit einiger Zeit Ihre 
Zeitschrift "Compute mit”. 
Schon ganz zu Anfang haben 
mir die Tests von Frank Brall 
großen Eindruck gemacht. Wa¬ 
rum, möchten Sie sicher wis¬ 
sen. Das ist ganz einfach: Was 
der Mann schreibt, stimmt fast 
immer harrgenau. Ein Beispiel: 
In einem Inserat einer Zeit¬ 
schrift las ich einen positiven 
Bericht über das Modul 
"BREMSE”. Also bestellte ich 
dieses. Bei den meisten Spie¬ 
len funktionierte es mangelhaft 
oder gar nicht. Zum guten 
Glück durfte ich es returnieren. 
Einige Tage später las ich den 
Test in Ihrem Heft und fand 
dort meine eigenen Erfahrun¬ 
gen bestätigt. 

All Ihre Tests find ich hilfreich, 
meißt sogar richtig spannend. 
Von mir aus könnte das ge¬ 
samte Heft voll von solchen Be¬ 
richten sein, denn auf die 
Listings lege ich keinen großen 
Wert. 

Ich möchte Sie aber noch auf 
eine Sache aufmerksam ma¬ 
chen, die mir, und sicherlich 
auch vielen anderen Lesern, 
ein wenig deplaziert erscheint: 


Gemeint ist eine Anzeige, die 
leider immer wieder erscheint. 
Im Heft 3/88 befindet sie sich 
auf Seite 11. Sie wissen jetzt 
schon sicher was ich meine, 
die Comics "Hör auf zu 
glotzen....”. Ihre Zeitschrift hat 
auch bei Intellektuellen einen 
guten Ruf, ist lehrreich, gut 
fundiert und man spürt die Ge¬ 
wissenhaftigkeit der Mitarbei¬ 
ter. Deshalb bin ich der 
Meinung, daß Sie es gar nicht 
nötig haben, obszöne Bilder 
wiederzugeben. 

Übrigens, die anderen Comics 
finde ich eigentlich recht witzig! 

Emil Wenk 


Red 

Zunächst möchten wir uns herzlich 
für das uns ausgesprochene Lob be¬ 
danken. Besonders der Herr Brall, 
der seit Tagen mit vor Stolz ge¬ 
schwellter Brust einherschreitet. 
Die Sache mit den Comics: 

Naja, da haben Sie natürlich teil¬ 
weise recht. Aber was soll’s? 


Wer? Wie? Wo? Was? 

Als erstes muß ich Euch mal 


ein großes Lob aussprechen, 
für Eure supergute Zeitschrift. 
Nun noch eine Frage: Wo be¬ 
komme ich ein gutes 
Drucker-Modul für den CPC, 
und wie teuer ist so etwas? 

Martin Dodt 


Die Red. 

Tja, wenn wir wüßten, was Sie mit 
dem Drucker-Modul meinen, dann 
könnten wir Ihnen sicher helfen. So 
aber... -An die Schneider-Rechner 
kann man jeden Drucker mit ei¬ 
ner CENTRONICS-Schnittstelle 
anschließen. 


Kann passieren! 

Aus Heft 3/88 habe ich das Li- 
sting "Mad Mission” abgetippt. 
Wurde dort vergessen, das 
zweite Listing abzudrucken? 
Auch das Programm "Drei 
Drachentöter” läuft nicht. Dort 
gibt es in Zeile 311 eine Feh¬ 
lermeldung. Leider hatte ich 
bisher keinen Spaß an Ihrer 
Zeitschrift. 

Rita Meyer 


Red. 

Sie haben recht! Aber bei "MAD 
MISSION” wurde nicht der zweite, 
sondern der erste Teil vergessen. 
Dieser wurde in der Zeitschrift 
4/88 abgedruckt. Das Programm 
"DREI DRACHENTÖTER” ist 
allerding fehlerfrei. Die Beschrei¬ 
bung der Fehlermeldung die bei Ih¬ 
nen auftritt, läßt auf einen 
Tippfehler innerhalb der DATA- 
Zeilen schließen. 


Leider, leiderl 

Als erstes möchte ich Ihnen zu 
Ihrer gelungenen Zeitschriften 
gratulieren. Da ich ein eifriger 
Leser Ihrer Zeitschrift bin, habe 
ich heute ein paar Fragen an 
Sie. Und zwar geht es um ei¬ 
nen Bekannten von mir. Er be¬ 
sitzt einen C64 und hat sich 
einen Digitizer zugelegt. Als ich 
die damit digitalisierten Bilder 
sah, war ich sofort begeistert. 
Deshalb nun meine Frage: Gibt 
es solch ein Gerät auch für den 
PLUS 4, und wenn ja, was ko¬ 
stet es. Außerdem hätte ich 
gern gewußt, ob es für den Plus 
4 auch so etwas Ähnliches wie 
das LASER-BASIC gibt. 

Johann Steiner 
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Red. 

Bislang existiert noch kein Vidio- 
Digitizer für den Plus 4. Es ist aber 
einer in Planung. Wenn es soweit 
ist, werden wir darüber berichten. 
Eine ähnliche Programmsammlung 
wie das LASER-SYSTEM gibt es für 
den Plus 4 leider auch nicht. 


MAILBOX 

In der Compute-mit Ausgabe 
3/88 kündigen Sie den Betrieb 
einer Mailbox an. In dem Arti¬ 
kel schreiben Sie, daß jeder, 
der ein Modem oder einen 
Akustikkoppler besitzt, Ihre 
Mailbox nutzen kann. 

Meine Frage wäre: Können Sie 
mir Software zum Betrieb eines 
Modems oder eines Akustik¬ 
kopplers besorgen oder wenig¬ 
stens eine Bezugsquelle 
nennen? Ich benutze den le¬ 
gendären VC20. 

D. Breitenbach 


Red.: 

Leider konnten wir bis heute kei¬ 
nen Anbieter für ein VC20- 
Terminalprogramm finden. Aber 
vielleicht kann an dieser Stelle ein 
anderer Leser weiterhelfen. Auch 
wir würden gerne wissen, wer ein 
Terminalprogramm für den VC20 
oder den C16 anbietet. 


Übrigens, unsere MAILBOX ist ab 
sofort unter der Rufnummer 
05651/30015 erreichbar. (Tag und 
Nacht) 


Unterschiede 

Als Besitzer eines Commodore 
Plus 4 bin ich daran interes¬ 
siert, wie ich Programme, die 
für den C64 gedacht sind, auf 
meinem Gerät zum Laufen 
bekomme. 

Für alle Möglichkeiten (auch 
Hardware), die Sie mir zukom¬ 
men lassen können, bin ich Ih¬ 
nen herzlich dankbar. 

Jan Borchers 


Red 

Es ist leider nur in den seltensten 
Fällen möglich, C64-Programme 
für den Plus 4 umzuschreiben oder 
diese mit irgendwelchen Tricks zum 
Laufen zu bringen. Dies liegt 
daran, daß beide Rechner 
grundverschieden sind. Im Be¬ 
triebssystem gibt es zwar Ähnlich¬ 
keiten, aber das ist dann auch alles, 
was miteinander vergleichbar ist. 
Solange es sich um reine BAS IC- 
Programme handelt, ist das Um¬ 
schreiben noch möglich, kommen 
dann aber POKE-Befehle vor, oder 
wird gar die Hardware des C64 ge¬ 
nutzt (SID, V1C), so werden die 


Probleme meist unlößbar. POKEs 
kann man eventuell noch aus ei¬ 
nem ROM-Listing ersehen, die spe¬ 
ziellen Grafik-und 

Sound-Fähigkeiten können vom 
Plus 4 aber auf keinen Fall simu¬ 
liert werden. 



Veteran 

Ich bin bei der "Compute mit" 
ein Leser der ersten Stunde. 
Doch nun ist der Zeitpunkt ge¬ 
kommen, zu dem ich mich mal 
melden muß. Grund dafür sind 
die Comics, die in letzter Zeit 
immer mehr Platz beanspru¬ 
chen. Ich finde, daß diese in 
solch einer Zeitschrift nichts zu 
suchen haben. Die llustratio- 
nen zu den Programmen sind 
ja in Ordnung. Diese finde ich 
sogar recht gut. Aber diese 
psychopatischen Comics, also 
wirklich, raus damit! Daß der 
VC-20 nun endlich rausgeflo¬ 
gen ist, begrüße ich sehr. Zwar 


tut mir das etwas für die 
VC20-User leid, aber es ist nun 
mal so, daß dieses Gerät total 
veraltet ist. Und der nun ge¬ 
wonnene Platz wurde von Ih¬ 
nen ja auch schon sehr sinnvoll 
verwendet. Also, bleibt so! 
Aber die Comics müssen, 
wenn schon nicht ganz raus, 
dann aber weniger werden. 
Nun noch etwas anderes. Von 
Euch stammt doch auch die 
Zeitschrift "ASM”, die ich 
ebenfalls lese. Köntet Ihr in Zu¬ 
kunft nicht auch den 
"ARCHIMEDES” berücksichti¬ 
gen? Dieser ist nämlich, jeden¬ 
falls meiner Meinung nach, der 
derzeit beste Computer über- 
haubt. Da ich vorhabe, mir ei¬ 
nen "ARCHIMEDES” 

zuzulegen, wäre ich über In¬ 
formationen über die zur Zeit 
vorhandene Software sehr 
dankbar. 

Carsten Ruhl 


Red. 

Dieser Brief besitzt mal wieder eine 
Stellvertreter-Bedeutung. Zahlreiche 
Leser haben sich schon zum Thema 
Comics geäußert, positiv, aber auch 
negativ. An dieser Stelle möchten 
wir unsere Leser bitten, uns ihre 
Meinung mitzuteilen. 

Zum "ARCHIMEDES": Er' ist 
geplant! 
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REPORT 


Der "Big Blue Reader” für den 
C-128 von Financial Systems 
hat bei den C-128-Usern ein 
reges Interesse geweckt. 
Nachdem wir das Programm in 
der Ausgabe 1/88 vorgestellt 
hatten, standen die Telefone in 
der Redaktion nicht still. Viele 
Leser wollten die Adresse des 
Herstellers wissen, die wir 
irrtümlicherweise nicht ange- 
geben hatten. Die rege Nach¬ 
frage findet ihre Gründe 
sicherlich darin, daß dieses 
Programm wohl zu den weni¬ 
gen Programmen zählt, welche 
in letzter Zeit speziell für den 
C-128 auf den Markt geworfen 
worden sind. Doch jener fast 
schon beschämende Mangel 
an echter C-128-Software 
scheint nun endlich behoben 
zu werden. Das englische 
Softwarehaus Financial Sy¬ 
stems leistet zur Zeit wirkliche 
Pionierarbeit auf diesem 
Sektor. 

Das neue Produkt aus diesem 
Hause nennt sich C-128 Canon 
und bietet dem Anwender in¬ 
sgesamt 8 einzelne Diskutili- 
ties, die vom einfachen 
Filecopier über einen Nibbler 
bis zu einem Disc Doktor 
reichen. 

Fast alle Funktionen können 
über Menüs erreicht werden, 
so daß das Einarbeiten keine 
Probleme bereitet. Im Gegen¬ 
satz zu der erfreulich komfor¬ 
tablen Bedienung fällt die in 
Englisch abgefaßte, kurze An¬ 
leitung eher negativ auf. Ein er¬ 
fahrener Anwender wird 
allerdings auch ohne die teil¬ 
weise mißlungene Anleitung 
auskommen. 

Nach dem Einbooten des 
Hauptprogrammes meldet sich 
das System (wie sollte es an¬ 
ders sein) mit dem Hauptmenü. 
Man kann zwischen 8 Funktio¬ 
nen wählen, als da wären: 

1. File Copier 

2. Nibble Copier 

3. File Copier 

4. MFM Copier 

5. "Scannen” der Diskette 

6. Directory Editor 

7. Disk Doktor 

8. Parameter 


Neben diesen Funktionen läßt 
sich im Menü auch die Zahl der 
Laufwerke (1 oder 2) und der 
Laufwerkstyp (1541,1571 und 
1581) festlegen sowie das Di¬ 
rectory der Diskette ausgeben. 
Zu den ersten drei Funktionen 
gibt es nur wenig zu sagen. Sie 
erweisen dem Namen des Pro¬ 
grammes nur wenig Ehre. In 
puncto Geschwindigkeit bre¬ 
chen sie keine Rekorde. Diese 
drei Kopierprogramme glei¬ 
chen in ihren Funktionen und 
in ihrer Leistungsfähigkeit dem 
handelsüblichen Kopierpro¬ 


grammstandard. Zudem er¬ 
weist sich der Nibblecopier 
nicht als sonderlich zuverläs¬ 
sig, da er bei den neueren Ko¬ 
pierschutzverfahren schon die 
Grenzen seines Können er¬ 
reicht, d.h. versagt. Er kann 
dem Kopierprogramm Burst¬ 
nibbler 128 nicht das Wasser 
reichen, der einen gewissen 
Standard darstellt und derzeit 
als bestes Programm dieses 
Genres gilt. 

Die Stärken von C-128 Canon 
liegen darin, daß dieses Pro¬ 
gramm mehrere einzelne Dis- 
kutilities verbindet und so eine 
nützliche Hilfe für den erfahre¬ 
nen Anwender darstellt. So 
verbirgt sich unter dem vierten 
Menüpunkt (MFM Copier) ein 
Kopierprogramm, mit dessen 
Hilfe sich Disketten im CPM- 
Format duplizieren lassen. Es 
versteht sich von selbst, da 
diese Option nur Besitzern ei¬ 
nes 1571er Laufwerkes, wel¬ 
ches die nötigen Hardware¬ 
eigenschaften bietet, offen¬ 
steht. 

Menüpunkt 5 scannt praktisch 
die ganze Diskette und zeigt 
auf dem Bildschirm den Status 
aller Sektoren an, so daß sich 
der Anwender vor dem Kopie¬ 
ren einer Diskette über deren 
Zustand informieren kann. Da¬ 
nach kann er z.B. bei einer 
Diskette, die Read-Errors 
aufweist, auf den Nibblecopier 
zurückgreifen, da dieser viel¬ 


leicht den möglichen Schutz 
umgeht. Leider werden aber 
bei der 1541 nicht die 
"verbotenen” Spuren von 36- 
41 oder gar Halftracks 
angezeigt. 

Das sechste Utility soll einen 
Directory Editor darstellen. Er 
erscheint mir nicht sonderlich 
gelungen, bietet aber dennoch 
einige Funktionen zur komfor¬ 
tablen Gestaltung 

des Inhaltverzeichnisses. 

Der Disk Doktor hat dagegen 
schon einiges zu bieten. Alle 
Funktionen, die zu einem 


echten Disketten Doktor dazu¬ 
gehören, sind in dieser Option 
implementiert. Mir hat es jeden¬ 
falls einen Heidenspaß bereitet, 
auf Disketten herumzupfu¬ 
schen und die sehr komforta¬ 
ble Menüsteuerung zu 
erproben. 

Die letzte Option dieses Utili¬ 
ties haut einem die Löcher aus 
der Socke. Was ich unter Punkt 
8 als "Parameter" bezeichnet 
habe, stellt eine echte Alterna¬ 
tive zu einem herkömmlichen 
leistungsfähigen Kopierpro¬ 
gramm dar. Unter dieser 
Funktion sind über 100 (!) ver¬ 
schiedene Arten des Kopier¬ 
schutzes, von Advanced Music 
Systems/Firebird bis Zoids/ 
Activision, gespeichert. Will 
man nun eine Originalpro¬ 
gramm, welches sich in dieser 
Liste befindet kopieren, so 
sollte man dieses zuerst mit 
dem Fastcopier oder in schwie¬ 
rigeren Fällen mit dem Nibble¬ 
copier duplizieren. Im Anschluß 
muß nur die letzte Option an¬ 
gewählt werden und eine Liste 
mit den etwa 100 Programm¬ 
namen erscheint. Bei der Aus¬ 
wahl des entsprechenden Pro¬ 
grammnamens wird nun der 
spezielle Kopierschutz des 
Programms auf die Kopiedis¬ 
kette gespeichert, so daß 
sich die Kopie nicht mehr vom 
Original unterscheidet. Dieser 
Weg, ein Programm zu kopie¬ 


ren, funktioniert, vorausge¬ 
setzt es befindet sich in jener 
umfangreichen Liste. In 90 
Prozent aller Fälle kann man 
davon ausgehen. Mißerfolge 
stellen sich nur dann ein, wenn 
die Softwarefirma den Kopier¬ 
schutz des Programmes im 
Laufe der Zeit verändert. Trotz 
aller Euphorie ist man insbe¬ 
sondere in diesem Programm 
auf einen Up to Date-Service 
angewiesen, da mit fortschrei¬ 
tender Zeit auch immer neue 
Programme, die sich dann 
noch nicht in der Liste befin¬ 
den, auf den Markt kommen. 

Abschließend muß ich noch je¬ 
den daran erinnern, daß Raub¬ 
kopieren in jedem Falle strafbar 
ist und für den Kopierer unan¬ 
genehme Folgen haben kann. 

Dem Anwender wird mit C-128 
Canon ein durchaus respekta¬ 
bles Programmutility geboten, 
das sicherlich seine Käufer fin¬ 
den wird. Dennoch bleibt die 
Frage, ob man mit anderen 
Programmen (Burstnibbler 
128) nicht besser bedient ist. 
Eine Entscheidung sollte von 
der Beantwortung der Frage 
abhängig gemacht werden, für 
welche Arbeitsgänge das Pro¬ 
gramm vorwiegend genutzt 
werden soll. Vom Kauf ist aber 
in keinem Fall abzuraten, da 
dieses Programm für den ein¬ 
fachen Gebrauch einiges zu 
bieten hat. Der Preis hätte al¬ 
lerdings etwas niedriger ausfal- 
len können. 

tob 

Positiv: komfortable Menü¬ 
steuerung, nützliche Utilities, 
über 100 Kopierschütze von 
Programmen können simuliert 
werden 

Negativ: knappe in Englisch 
verfaßte Anleitung, langsame 
Kopiergeschwindigkeit 

Programm: The C-128 Canon, 
System: C-128, Preis: ca. 45 
Mark, Hersteller: Financial Sy¬ 
stems Software, Worcester, 
England 
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REPORT 

Ein freundlicher 
„Genosse” 


Stellt Euch vor, Ihr schreibt ge¬ 
rade ein Programm in BASIC. 
Im entscheidenen ersten Pro¬ 
bedurchlauf meldet sich der 
Computer "freundlich” mit ei¬ 
ner Fehlermeldung und auch 
nach dem Auflisten der fehler¬ 
haften Zeile bleibt der Fehler 
versteckt. Einhergehend mit 
der ersten Verärgerung kom¬ 
men dann meist Fragen auf, 
wie denn z.B. die Parameter 
der Spritebefehle sind usw.. 
Glaubt man den Murphyschen 
Gesetzen, so fällt einem in die¬ 
sem Moment natürlich keine 
Lösung für das Problem ein, so 
daß nur noch ein Blick in das 
Handbuch weiterzuhelfen 
scheint. Doch dieses liegt, 
wenn man wieder obigen Ge¬ 
setzen vertraut, irgendwo in der 
trauten Stube, vom Suchenden 
weitentfernt, unter Zeitungen 
(der echte Computerfreak liest 
natürlich nur Compute mit) und 
Büchern begraben. 

Nun, wer kennt sie nicht, jene 
Schreckensvision eines Com¬ 
puterbesitzers, die ich soeben 
etwas überspitzt dargestellt 
habe. Für den wenig ver¬ 
wöhnten C-128 Besitzer 
scheint dieses Problem der 
Vergangenheit anzugehören. 
Das englische Softwarehaus 
Financial Systems bietet seit 
kurzer Zeit eine passende Ab¬ 
hilfe mit dem wohlklingenden 
Namen C-128 Helper. 

Das Programm leistet folgen¬ 
des. Alle Erklärungen zu den 
einzelnen Befehlen sind 
(neben anderen hilfreichen 
Programmfunktionen) auf einer 
Diskette abgespeichert worden 
und können während des Pro- 
grammierens ohne Pro¬ 
grammverlust aufgerufen 
werden. Der Anwender muß 
vor dem eigentlichen Pro¬ 


grammieren das Installations¬ 
programm vom C-128 Helper 
einladen und dadurch das Uti¬ 
lity resistent im Speicher be¬ 
reitstellen. Nach diesem 
Vorgang gelangt man jederzeit 
über die HELP-Taste in das 
Hauptmenü jenes nützlichen 
Utilities. Dort kann man nun 
den gesuchten Befehl eintip¬ 
pen. Auch die Benutzung von 
Wildcards wie dem Sternchen 
sind dabei erlaubt. Nach 
der Eingabe wird eine ausführ¬ 
liche Erklärung des Befehls mit 
Beschreibung, Syntax und 
Beispielen von der Pro¬ 
grammdiskette eingeladen. 


Ist man auch noch glücklicher 
Besitzer eines Druckers, so 
lassen sich diese Informatio¬ 
nen mittels der Commodore- 
Taste auf's Papier bringen. 
Nachdem man sich nun z.B. 
über die korrekte Syntax infor¬ 
miert hat, kann man über die 
Return-Taste problemlos in das 
fehlerhafte Programm zurück¬ 
gelangen und den Fehler kor¬ 
rigieren. Der Bildschirminhalt 
erscheint, wie man ihn zuvor 
verlassen hatte, denn Ände¬ 
rungen werden durch den Auf¬ 
ruf des C-128 Helpers nicht 


vorgenommen. 

Die Diskette enthält noch 
einige weitere hilfreiche Pro¬ 
gramme und Funktionen! So 
lassen sich mittels der auf der 
Diskette gespeicherten Pro¬ 
grammen eigene Informa- 
tionsscreens und sogar eigene 
Informationsdisketten erstellen. 


Der Editor zur Erstellung sol¬ 
cher Informationsbildschirmen 
macht auf mich einen ganz 
passablen Eindruck, da 
zahlreiche Features implemen¬ 
tiert sind. Zudem läßt sich auch 
das Programm selbst modifi¬ 
zieren. So kann man zum 
Beispiel die Bildschirmfarben 
oder die Geräteadresse des 
Diskettenlaufwerks bei Bedarf 
ändern. Auch die komfortable 
Menüsteuerung des Installa¬ 
tionsprogramm bietet dem An¬ 
wender zahlreiche Möglich¬ 
keiten. 


Alle Funktionen, ich habe nur 
einige beispielhaft herausge¬ 
griffen und beschrieben, wer¬ 
den in der englischsprachigen 
(leider) Anleitung sehr ausführ¬ 
lich erklärt, so daß der Anwen¬ 
der vermutlich keine Probleme 
haben wird. 

Dieses nützliche Programm 
dürfte aber nur diejenigen 
interessieren, die noch wenig 
routiniert im Umgang mit dem 
C-128 und seinen Befehlen 
sind. Gerade für diese Gruppe 
bietet der C-128 Helper eine 
hervorragende Hilfe im 
K(r)ampf mit dem Computer. 
Lediglich den Preis halte ich für 
etwas überzogen. Für knapp 
75,-DM hätte ich ein Mehr an 
Leistung erwartet. Es ist zu hof¬ 
fen, daß der Preis noch etwas 
sinkt. Zu einem günstigeren 
Preis ist das Programm insbe¬ 
sondere für Anfänger sehr 
empfehlenswert. 

tob 

Positiv: alle Befehle werden 
ausführlich erklärt, eigene 
Informationsscreens/- 
disketten können komfortabel 
erstellt werden, ausführliches 
Manual 

Negativ: zu hoch angesetzter 
Preis, englische Anleitung 

Programm: C-128 Helper, Sy¬ 
stem: C-128, Preis: ca. 75 
Mark, Hersteller: Financial Sy¬ 
stems, Worcester, England 



Freuen Sie sieh jetzt sehen auf das nächste 
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Der Checksummer für MC-Programme! 


Warum schon wieder einen 
Checksummer ? 

Sicherlich werden sich einige Le¬ 
ser fragen, warum wir schon 
wieder einen Checksummer vor¬ 
stellen und wie es jetzt mit dem 
alten weitergeht. Die Antwort ist 
relativ einfach: Da wir in den 
letzten Ausgaben verstärkt Ma¬ 
schinenprogramme abgedruckt 
haben, benötigen wir ein neues 
Verfahren, um auch diese Pro¬ 
gramme mit einer Checksumme 
zu versehen. Das Ausdruckver¬ 
fahren von Basic-Listings wird 
nicht verändert. Hier wird auch 
weiterhin der erprobte Check¬ 
summer OV 2.0 seine Dienste 
tun. 

Der Checksummer OVM 1.0 

Wie schon erwähnt, dient der 
Checksummer ausschließlich zum 
Eingeben von Maschinenpro¬ 
grammen. Diese konnten zwar 
bisher relativ kompakt als soge¬ 
nanntes HEXDUMP ausgegeben 
werden, ließen jedoch keine Mög¬ 
lichkeit für eine oder mehrere 
Prüfsummen offen. 

Dies ist bei diesem Checksum¬ 
mer völlig anders. Die Bedienung 
und Arbeitsweise dieser Version 
ist weitgehend mit dem eingebau¬ 
ten Maschinensprachemonitor 
TEDMON identisch. Die einzige 
Ausnahme ist, daß nach der Ein¬ 
gabe einer HEXZEILE keine 
ASCII-Zeichen, sondern eine soge¬ 
nannte Checksumme bzw. Prüf¬ 
ziffer ausgegeben wird. Achtet 
man beim Eingeben der Zeilen 
darauf, daß Diese Prüfziffern mit 
den abgedruckten Prüfziffern 
identisch sind, so kann praktisch 
kein Tippfehler mehr übersehen 
werden. 

Hinweise zum Einsatz des 
Checksummers 

Um den Checksummer OVM 1.0 
einzugeben, sollten Sie unbedingt 
den Basic-Checksummer OV 2.0 
verwenden. Vor dem Start, durch 
den Befehl RUN, sollte das Pro¬ 
gramm auf jeden Fall mit 
SA VE”OVM1.0” auf Kassette oder 
Diskette abgespeichert werden, da 
sich das Programm unter Um¬ 


ständen selbst zerstören kann. 

Wer sich die Arbeit des Eingebens 
völlig ersparen möchte, kann den 
Checksummer auch unter den 
folgenden Bestellnummern bezie¬ 
hen: 

OVM 1.0 K Kassette 15 DM 
OVM 1.0 D Diskette 20 DM 

Nachdem man den Checksum¬ 
mer eingegeben und mit RUN ge¬ 
startet hat, verlangt dieser die 
Eingabe einer Adresse. Diese 
Adresse gibt an, ab welcher Spei¬ 
cherstelle der Checksummer im 
RAM abgelegt werden soll. Diese 
Adresse muß flexibel gestaltet 
werden, da sich sonst einzuge¬ 
bende Maschinenprogramme 
eventuell mit dem Checksummer 
überschneiden könnten. Der 
zweite Vorteil ist, daß sich ein 
verschiebbarer Checksummer 
gleichermaßen für den C16 so¬ 
wie den Plus 4 eignet. Zu beach¬ 
ten ist hier nur, daß sich die 
eingegebene Adresse in einem zu¬ 
lässigen Bereich befindet: Beim 
C16 von 4097 bis maximal 12680 
Beim Plus 4 von 4097 bis maxi¬ 
mal 32060. 

Welche Adresse man schließlich 
wählt, bleibt jedem selbst überlas¬ 
sen. Wichtig ist nur, daß der Be¬ 
reich 688 Bytes über der Adresse 
nicht vom einzugebenden Pro¬ 
gramm benötigt wird. Belegt 
beispielsweise das einzugebende 
Programm den Bereich von 
$ 1000- $2000 (4096-8192), so 
könnte man für den Checksum¬ 
mer die Adresse 9000 wählen. Um 
Ihnen am Anfang die Wahl des 
Speicherbereiches etwas zu er¬ 
leichtern, werden wir auch ent¬ 
sprechende Tips in den 
Programmbeschreibungen unter¬ 
bringen. 

Nachdem Sie eine Startadresse 
eingegeben und die RETURN- 
Taste betätigt haben, wird der 
Bildschirm mit einem undefinier¬ 
baren Zeichengewirr beschrieben. 
Keine Angst, dies ist normal und 
dient zum Umrechnen einiger 
Sprungbefehle. Kurz danach er¬ 
scheint die eingegeben Starta¬ 
dresse sowie die Endadresse des 


Checksummers. Prüfen Sie jetzt 
noch einmal genau, ob sich diese 
Adressen nicht mit dem einzuge¬ 
benden MC-.Programm über¬ 
schneiden. 

Ist dies nicht der Fall, so kann der 
Checksummer mit dem angezeig¬ 
ten SYS ... Befehl aktiviert wer¬ 
den. Ein ab Adresse 10000 
abgelegter Checksummer wird 
beispielsweise auch mit SYS 10000 
aktiviert. 

Nachdem sich der Checksummer 
mit dem üblichen COPY-RIGHT- 
Vermerk meldet, befinden Sie sich 
im MC-Eingabemodus. Dies be¬ 
deutet, daß jetzt die Basic-Befehle 
nicht mehr ausgeführt werden 
können. Statt dessen stehen dem 
Anwender nun acht neue Befehle 
zur Verfügung. Die Befehle beste¬ 
hen jetzt nur noch aus einem ein¬ 
zigen Buchstaben und arbeiten 
ähnlich wie die im eingebauten 
Maschinensprachmonitor 
TEDMON. 

M aaaa.eeee 

Dies ist der sogenannte 
Memory-Befehl. Er erlaubt das 
Auflisten eines bestimmten Spei¬ 
cherbereichs als HEXDUMP mit 
einer Checksumme pro Zeile. Die 
Parameter aaaa und eeee stehen 
jeweils für Anfangs- und Enda¬ 
dresse des auszugebenden Be¬ 
reichs. 

>aaa bb bb... 

Dieses ist der eigentliche 
Maschinencode-Eingabebefehl. 
Als Parameter kann die Eingabe¬ 
adresse sowie eine Folge von By¬ 
tes (maximal 8) übergeben 
werden. Die Arbeitsweise ist mit 
dem herkömmlichen Monitor 
völlig identisch und kann im 
Handbuch zum C16 genauer stu¬ 
diert werden. Der einzige Unter¬ 
schied zum Standard-TEDMON- 
Befehl besteht darin, daß nach dem 
Betätigen der RETURN-Taste am 
Zeilenende eine Checksumme er¬ 
scheint. Um die Checksumme 
besser von den Bytes der Eingabe 
abzuheben, ist diese durch zwei 
Doppelpunkte von letzteren ab¬ 
gesondert. Da dieser Befehl auto¬ 
matisch beim M-Befehl den Zeilen 
vorangestellt wird, lassen sich 
Speicherbereiche einfach mittels 


der Cursortasten verändern oder 
verbessern. Wichtig ist hier aller¬ 
dings, jede veränderte Zeile mit 
der RETURN-Taste zu quitieren. 

P 

Durch diesen Befehl wird die 
Bildschirmausgabe auf einen an¬ 
geschlossenen Drucker umgelei¬ 
tet. Wenn Sie anschließend den 
M-Befehl benutzen, können Sie 
beliebige Speicherbereiche als 
HEXDUMP mit Prüfsummen auf 
Ihrem Drucker ausgeben lassen. 

B 

Dieser Befehl stellt das Gegen¬ 
stück zum P-Befehl dar. Die Aus¬ 
gabe wird wieder auf den 
Bildschirm umgeleitet. 

L”Name”,g 

Dies ist der LCMD-Befehl zum 
Nachladen von Maschinenpro¬ 
grammen. Die Syntax und Ar¬ 
beitsweise entspricht genau dem 
TEDMON-Befeh] und kann so¬ 
mit im Handbuch nachgelesen 
werden. 

S”Name",g,aaaa,eeee 
Dies ist der 5<neBefehl zum Spei¬ 
chern von Maschinenprogram¬ 
men. Die Syntax und Arbeits¬ 
weise entspricht genau dem 
TEDMON-Befehl und kann so¬ 
mit im Handbuch nachgelesen 
werden. 

V”Name”,g 

Dies ist der KE/f/fY-Befehl zum 
Prüfen von Maschinenprogram¬ 
men. Die Syntax und Ar¬ 
beitsweise entspricht genau dem 
TEDMON-Befehl und kann so¬ 
mit im Handbuch nachgelesen 
werden. 

X 

Uber diesen Befehl verlassen Sie 
den Eingabemonitor und gelan¬ 
gen wieder in den Basic-Interpreter 
zurück. 

Achtung ! 

Nach der Ausführung der Befehle 
L,S und V (LOAD, SAVE VERI- 
FY), befinden Sie sich nicht mehr 
im Checksummer, sondern im 
eingebauten Systemmonitor TED¬ 
MON. Um den Checksummer 
wieder zu aktivieren, müssen Sie 
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diesen von TEDMON mit Gxxxx 
(xxxx steht für Startadresse in 
HEX) oder vom Basic aus, wieder 
mit SYS ... aktivieren. 

So, nun viel Glück beim Einge¬ 


ben von Maschinenprogrammen. 
Übrigens, wer noch nicht ganz 
mit der Bedienung unseres Sy¬ 
stems zurechtkommt, kann 
selbstverständlich auch weiterhin 


den eingebauten TEDMON be¬ 
nutzen. Wir hoffen jedoch, daß 
unser System OVM 1.0 Ihren Zu¬ 
spruch finden und die lästige Feh¬ 
lersuche zumindest stark redu¬ 


zieren wird. Schreiben Sie uns 
doch einmal, was Sie von unseren 
Eingabehilfen für gut oder für 
verbesserungswürdig halten! 

Frank Brall 


Das Listin 


C-16 LISTINB + CHECKSUMMEN <OC VI.0) 


10 REM ********************* 

20 REM MC-EINGABEROUTINE 
30 REM OVM 1.0 

40 REM (C) FRANK BRALL 

50 REM ********************* 

60 REM 

70 FOR 1=1630 TO 1702:READ PiROKE I,P:NEXT I 
80 REM *** VERSCHIEBE ROUTINE *** 

90 DATA32.222,157,132,216,133,217,32,222,157 
,140,134,3,141,135,3,32,222 

100 DATA157,132,218,133,219,160,0,177,216, 14 

5,218,24,165,216,105,1,133,216 

110 DATA165,217,105,0,133,217,24, 165,218, 105 

,1,133,218,165,219,105,0,133 

120 DATA219,165,217,205,135,3,208,219,165,21 

6,205,134,3,20B,212,96,0,0 

130 DATA0 

140 REM *** MC-CODE *** 

150 DATA234, 169,251,141,21 ,255,169,2,141 ,25, 

255,32,216,251,147,17,29,144 

160 DATA32,32,67,49,54,32,77,67,45,67,72,69, 

67,75,83,85,77,77 

170 DATA69,82,32,79,B6,77,32,49,4B,13,13,32, 
32,32,32,32,40,67 

180 DATA41,32,70,82,65,78,75,32,66,82,65,76, 
76,32,49,57,56,55 

190 DATA17,0,32,58,251,162,0,134,243,32,207, 
255,157,0,2,232,201,13 

200 DATA208,245,202,134,244,32,63,251,240,23 

0,201,32,240,247,162,7,221,151 

210 DATA18,240,9,202,16,248,32,11,251,56,176 

,210,234,224,5,240,29,224 

220 DATA6,240,25,224,7,240,21,138,10,170,189 
,160,18,141,173,18,189,159 

230 DATA18,141,172,18,32,242,17,108,172,18,1 

41 ,91,5,169,241,141 ,21,255 

240 DATA169,238,141,25,255,173,91,5,76,110,2 
46,176,19,32,91,251,160,0 

250 DATA32,242,17,176,9,165,241,145,161,200, 
192,8,144,242,32,216,251,27 

260 DATA79,145,0,32,67,18,56,176,166,234,8,1 
65, 161,141,174,18, 165, 162 

270 DATA141,175,18,32,216,251,13,32,77,67,45 
,76,73,83,84,73,78,71 

280 DATA32,77,73,84,32,67,72,69,67,75,83,85, 
77,77,69,78,32,79 

290 DATA86,77,49,48, 13,0, 173, 174,18,133,161, 
173,175,18,133,162,40,176 

300 DATA14.56, 176,3,56, 176, 183,32,91 ,251 ,32, 
242,17,144,6,169,11,133 

310 DATA241,208,14,32,100,251,74,102,241,74, 
102,241,74,102,241,133,242,32 
320 DATA22S,255,240,13,32,67,18,169,8,32,150 
,251,32,114,251,176,238,8 

330 DATA165, 161,141,174,18,165,162,141,175,1 
8,32,216,251,13,32,69,78,68 

340 DATA69,32,68,69,B3,32,76,73,83,84,73,78, 
71,83,32,40,79,86 

350 DATA77.41,13,0,173,174,18,133,161,173,17 
5,18,133,162,40,56,176,152 

360 DATA32,216,251,13,77,67,45,67,72,69,67,7 
5,B3,85,77,77,69,82 

370 DATA32,65,85,83,32,33,0,169,241,141,21,2 
55,169,238,141,2S,255,104 

380 DATA104,76,3,128,234,32,216,251,13,60,82 
,85,67,75,69,82,32,65 

390 DATA7S,84,73,86,13,0,169,1,162,4,160,0,3 
2,186,255,169,0,32 

400 DATA189,255,32,192,255,162,1,32,201,255, 
56,176,168,234,169,1,32,93 


<241 > 
<252> 
<218> 

< 194> 
<25> 
<203> 
<24B> 
<238> 

<145> 

<54> 

< 136> 

< 19B> 
< 101 > 

< 199> 

<74> 

<215> 

<89> 

<255> 

<21B> 

<52> 

<87> 

<7B> 

< 124> 
<58> 

< 173> 
<160> 
<162> 
<232> 
<58> 
<29> 
<238> 
<70> 
<65> 

< 11B> 
<138> 

< 1S8> 

< 135> 
<119> 

< 196> 
<224> 


410 DATA238,32,12,239,32,216,251,13,66,73,76 
,6B,83,67,72,73,82,77 <171> 

420 DATA32,65,75,84,73,86,13,0,56,176,219,16 
9,0,133,241,133,242,141 <10> 

430 DATA244,7,32,63,251,240,58,201,32,240,24 
7,201,32,240,46,201,44,240 <107> 

440 DATA42,201 ,48,144,43,201,71,176,39,201 ,5 
8,144,6,201,65,144,31,233 <90> 

450 DATAB,233,47,10,10,10,10,162,4,10,38,241 
,38,242,202,208,248,238 <2S1> 

460 DATA244,7,32,63,251,208,206,173,244,7,24 
,96,104,104,32,11,251,56 <53> 

470 DATA176,172,234,32,58,251,169,62,32,210, 
255,32,251,250,160,0,32,150 <24B> 

480 DATA207,32,5,251,200,192,8,144,245,32,21 
6,251,58,58,0,169,0,141 <105> 

490 DATA169,18,160,0,32,150,207,141,171,18,1 
40,170,18,174,170,18,232,24 <139> 

500 DATA173,171,18,109,169,18,141,169,18,202 
,208,243,200,192,8,144,225,24 <137> 

510 DATA173,169,18,101,161,24,101,162,162,0, 
32,5,251,96,62,77,88,B0 <221> 

520 DATA66,76,83,86,174,16,208,16,123,17,163 
,17,208,17,0,0,0,0 <206> 

530 DATA0,0,0,255 <234> 

540 REM <173> 

550 REM *** ABSOLUTE ADRESSEN *** <2B> 

560 REM < 193> 

570 DATA 4204,4234,4237,4240,4243 <250> 

580 DATA 4246,4249,4278,4299,4309 <0> 

590 DATA 4314,4356,4361,4378,4408 <86> 

600 DATA 4424,4429,4462,4467,4709 <215> 

610 DATA 4717,4720,4723,4728,4731 <47> 

620 DATA 4734,4746,4767,4769,4771 <180> 

630 DATA 4773,4775,0 <52> 

640 PRINT "t CLEAN DOUH2 SPACE3 ) MASCHINENCODE< 

SPACE ) CHECKSUMMER ( SP4CO OVM < SP4CO 10“ <47> 

650 PRINT“ I DOUH SPACE7 > <C) I SPACE ) FRANK I SPACE 
) BRALL ISPACE) 1987 iDOUH) “ <30> 

660 PRINT“BITTE ( SPACE )BEBEN I SPACE ) SIEC SPACE ) 
NUN< SP4CO DIE< SP4CO ADRE8BE< SP4CO EIN." <136> 

670 PRINT“AB i SPACE >DER < SP4CE >DER < SP4CO CHECK 
SUMMER < SP4CO IM< SP4CO SPEIOtER" <51 > 

680 PRINT"ABGELEGT I SPACE ) WERDEN I SPACE ) SOLL<£ 

PACE) !" <22B> 

690 PRINT" IDOUH) ACHTUNG< SPACE) !!! I DOUH ) * <197> 

700 PRINT 11 BE IM< SP4CO C16< SP4CQ 2WISCHEN< SP4C 
O 4097 I SPACE ) UND i SPACE ) 126B0C SP4CO !" <64> 

710 PRINT" BEIM< SP4CE IPLUS4< SP4CO ZWISCHEN<SP 
4CO4097< SP4CO UND< SP4CE I32060< SP4CO ! I DOUH ) 

" <215> 

720 INPUT "ADRESSE C SPACE ) "J AD <111> 

730 IF AD<4097 THEN RUN <47> 

740 IF AD>32060 THEN RUN <210> 

750 D»AD—4097:REM DIFFERENZ <171> 

760 PRINT“ < CEE4Q BITTE< SP4CE 1EINEN< SP4CE IAUB 
ENBLICK ( SPACE ) WARTEN ( SPACE ) !“ <167> 

770 FOR I« 3152 TO 3152+687 :READ PtPOKE I,P 
INEXT I <203> 

780 READ liA : IF UA ■ 0 THEN 850 <129> 

790 UA-UA-945 <173> 

800 W* <PEEK(UA+1> *256)+PEEK <UA) <104> 

810 W-W+D <233> 

820 POKE UA+l,INT(W/256) <130> 

830 POKE UA,W—(INT(W/256)*256) <13> 

840 GOTO 780 <170> 

850 PRINT" C HOHE SPACE6. ) PROGRAMM< SPACE ) IST<SP 
4COE INGELESEN < SP4CE > ! " < 135> 

860 PRINT"< PflWWI9 >START< SP4CE >MIT< SP4CE >SVB" 

AD <246> 

870 PRINT‘*START< SP4CO BEI: "AD" < SP4CE2 >ENDE<S 
P4CO BEI: "AD+687 <166> 

880 SYS 1630,3152,3152+6B8,AD <27> 

890 END <2S3> 

ENDE DES LISTIN6S 


Compute mit 


5/88 


13 





REPORT 


Software im Blickpunkt 


Puckjäger 
auf Torejagd! 


Die Olympischen Spiele haben 
es wieder gezeigt: Eishockey 
ist in! So ist es auch bei uns in 
der Redaktion. Zwar haben 
gute Sportspiele bei uns so¬ 
wieso einen hohen Stellenwert, 
doch zur Zeit sprengt ein Eis¬ 
hockeyspiel sogar diesen 
Rahmen. Ich spreche von Hat¬ 
trick, welches von Capcom 
aus den USA unseren 
Software-Markt erobert hat. 
Warum wir hier von einer Er¬ 
oberung sprechen, möchte ich 
an dieser Stelle belegen. 
Fairerweise muß man die Be¬ 
wertung von Hattrick unterglie¬ 
dern, da die Realitätsnähe auf 
verschiedene Art und Weise 
beurteilt werden kann. Fangen 
wir also am besten bei den un¬ 
realistischen Spielteilen an. Die 
"kürzere” Spielzeit versteht 
sich von selbst, daß nur jeweils 
ein Spieler plus Keeper auf der 
Eisfläche aktiv ist, jedoch nicht. 
Auch daß ein Eishockeymatch 
in Drittel untergliedert ist, 
taucht bei Hattrick nicht auf. 
Das wär's aber auch schon. 
Ansonsten bin ich schwer bee¬ 
indruckt gewesen. Durch die 
Entscheidung, nur zwei 
Feldspieler auf’s Eis zu las¬ 


sen, kommt das Spiel Mann 
gegen Mann voll zur Geltung. 
Hier kann man richtig zur Sa¬ 
che gehen, den Gegner an die 
Bande drücken, häkeln und 
ihm am Ende die Hartgummi¬ 
scheibe abluchsen. Hinzu 
kommt, daß mit zunehmender 
Spieldauer die Eisfläche immer 
fertiger aussieht bzw. mehr 
Kratzer aufweist. Kein Wunder, 
stets vor und zurück, bremsen 
und beschleunigen, da muß 
sich ja die Eisfläche abnutzen. 

Aber bei diesem Eishockeys¬ 
piel ist auch dies kein Problem, 
da nach Spielschluß die Eis¬ 
maschine für eine glatte Fläche 
sorgt. Diese willkommene 
Pause kann bei Bedarf natür¬ 
lich abgekürzt werden, indem 
man ein neues Spiel startet. 
Dann kann die Jagd nach dem 
Puck beginnen. Während der 


Spieler absolut ausgereizt wer¬ 
den kann, fährt der Torwart auf 
seinen Kufen nur auf und ab, 
was aber zur Torsicherung 
vollkommen ausreicht. Einen 
kleinen Tip am Rande können 
wir im Kampf um den Sieg 
schon geben: Macht Euch die 
Bande zunutze! Allerdings 
kann es ganz schön peinlich 
werden, wenn man frei vordem 
Tor seine Chance vergeben hat 
und den Abpraller nicht mehr 
erreicht. Dann hat nämlich der 
Gegner freie Bahn in Richtung 
Tor. Hier hilft nur noch Glück 
und ein starker Torsteher. Bei 
starken Gegnern empfiehlt es 
sich, auch auf Zeit zu spielen. 

Nicht gerade sportlich, aber 
sehr effektiv! Für Spannung ist 
jedenfalls bis zum Schluß ge¬ 
sorgt, da binnen fünf Sekunden 
glatt zwei Tore fallen 


können. Bei uns gab es da 
schon manch trauriges Ende. 
Bis zehn Sekunden vor Schluß 
geführt und dann doch noch 
verloren. Das ist schon bitter. 
Sollte jedoch keine Entschei¬ 
dung bis Spielende gefallen 
sein, so kommt es zur Over¬ 
time. Diese geht über eine Mi¬ 
nute, in der derjenige gewinnt, 
der das erste Tor erzielt. Trau¬ 
rig, aber wahr! 

Übrigens ist Hattrick eins der 
wenigen Programme, bei dem 
es alleine genauso viel Spaß 
bringt wie zu zweit. Natürlich 
fallen im Duell mit dem Com¬ 
puter nicht so köstliche Kom¬ 
mentare, zumal die Spielstärke 
sich nur zweimal steigern läßt 
im Auswahlmenü. Kleine Pro¬ 
bleme können am Ende einer 
Spielphase allerdings doch auf- 
treten. Eine schmerzende 
Hand bleibt meistens zurück. 

Teilweise mußten bei uns die 
Spieler eine Woche verlet¬ 
zungsbedingt pausieren. Laßt 
es nur nicht so weit kommen, 
wenngleich wir dafür durchaus 
Verständnis aufbringen 
können. 
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Das 264k-System & 
der Fast-Nibbler (Teil 2) 


Der 264k-Speichererweiterung 
für den-Commodore 64 des 
vorherigen Heft folgt in dieser 
Ausgabe das erste Anwen¬ 
dungsprogramm. Vorgestellt 
wird ein Kopierprogramm, das 
sich von zahlreichen anderen 
Versionen durch verschiedene 
Vorzüge positiv abhebt. 

- es ist userfreundlich 

- kopiert alle Fehler ohne Ab¬ 
sturz 

- scant alle Lese- und Schreib¬ 
fehler 

- braucht für die erste Kopie 35 
Sec. 

• für jede weitere derselben 
Disk 20 Sec. 

Der Fast-Nibbler läuft auf ei¬ 
nem C-64 mit Floppystation. 
Dabei bleibt es gleichgültig, ob 
Sie ein beschleunigtes Dos 
oder ein verändertes Be¬ 
triebssystem benutzen. Einzige 
Voraussetzungen sind der Ein¬ 
bau eines Parallel-Busses so¬ 
wie die Erweiterung mit dem 
264K-Ram-System. Selbstver¬ 
ständlich kann man den erwei¬ 
terten Speicher benutzen. Es 
ist z. B. möglich, eine Ram- 
Floppy, einen Druckerpuffer 
oder ein erweitertes Text- bzw. 
Terminalprogramm zu schrei¬ 
ben. Der Nutzer kann somit 
auch außergewöhnliche Ideen 
verwirklichen. Im Gegensatz zu 
anderen ist diese Speicherer¬ 
weiterung sehr preiswert und 
dennoch einfach zu handha¬ 
ben. Der Fast-Nibbler (Listing 
1) ist ein Parallel-Nibbler, der 
ähnlich wie die Tempelmann¬ 
oder M. J. Henry- Kopierpro¬ 
gramme aufgebaut ist. Die An¬ 
sätze der beiden oben 
genannten Personen waren 


sehr lehrreich und erleichterten 
uns, eine eigene, schnell arbei¬ 
tende Schreib- und Leseroutine 
zu entwickeln. Die ersten Ver¬ 
suche, ein Kopierprogramm für 
unser System zu schreiben, 
waren bezüglich der Qualität 
der Kopien sehr zufriedenstel¬ 
lend. Unbefriedigend blieb hin¬ 
gegen der Zeitbedarf dieses 
Programms. Auch nach der 
Beschleunigung des IEC- 
Busses stellte uns das Ergeb¬ 
nis nicht zufrieden. Daraufhin 
zerpflückten wir den Parallel- 
Bus eines 8250 Laufwerks und 
erwarben die uns fehlenden 
Kenntnisse über die Ein- und 
Ausgabe-Bausteine. Aufgrund 
der gesammelten Erkenntnisse 
gelang es uns, unser Kopier¬ 
programm zu einem in an¬ 
nehmbarer Zeit und mit sehr 
guter Qualität arbeitenden 
Produkt zu verbessern. 
Starten des Programms: 

Das Programm wird mit LOAD 
”MASTER-COPr,8 geladen 
und mit Run gestartet. Nach 
der Initialisierung wechselt die 
Bildschirmfarbe, und das Pro¬ 
gramm meldet sich. Jetzt kann 
eine Original-Diskette zum Ko¬ 
pieren in das Laufwerk einge¬ 
legt werden. Nach dem 
Drücken einer beliebigen Taste 
wird die Diskette vollständig 
eingelesen. Nach dem Einle¬ 
sen erscheint auf dem 
Bildschirm eine Anzeige, die 
die Disketten-Fehler durch ein 
"R” kennzeichnet. 

Die Fehler werden in Form ei¬ 
ner Meldung in dem dafür vor¬ 
gesehenen Fenster aufgelistet. 
Legen Sie eine Leer-Diskette in 
das Laufwerk ein, und drücken 
Sie eine beliebige Taste. Der 
Speichervorgang beginnt so¬ 


fort) Die Diskette wird während 
des Kopiervorgangs formatiert. 
Während des Schreibvorgan¬ 
ges wird ein Verify ausgeführt, 
welches die zuspeichernden 
Daten mit dem Inhalt des Spei¬ 
chers vergleicht. Beim Auftre¬ 
ten von Kopierfehlern werden 
die richtigen Daten erneut ab¬ 
gespeichert. Mißlingt dieser 
Versuch, wird der Fehler durch 
ein "W” in die Fehlertabelle 
eingetragen. In diesem Fall 
empfiehlt es sich, eine zweite 
Kopie auf einer anderen Dis¬ 
kette anzulegen. 

Wenn Sie eine zweite Kopie an- 
legen wollen, besteht die Mög¬ 
lichkeit, durch Drücken der 


Taste ”Y” (siehe Fenster) ei¬ 
nen zweiten Schreibvorgang zu 
starten. Die neue Leer-Diskette 
sollten Sie vor Bedienung der 
Taste einlegen, da der Kopier¬ 
vorgang sofort beginnt. 

Wird keine weitere Kopie ge¬ 
wünscht, drücken Sie einfach 
die Taste ”n”, und das Pro¬ 
gramm steht für einen anderen 
Kopiervorgang zur Verfügung. 

Die Speicheraufteilung des 
Programms: 

Nach dem Laden liegt das Pro¬ 
gramm im Bereich von 0801 
bis 1300. Beim Initialisieren 
werden zuerst die wichtigsten 
Routinen im Speicher des 
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Das Fenster zur Ausgabe der Mitteilungen an den 
Benutzer befindet sich rechts unten. 
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Computers verteilt. Dazu ge¬ 
hört die Bankswitch-Routine 
sowie die Routine zur Steue¬ 
rung der vier 64K-Banken. Die 
Routinen, die von allen Banken 
ausgenutzt werden, werden in 
den zusätzlichen Ram- 
Speichern am Expansionsport 
geschrieben. Dabei wird das 
Ram unter dem von unserem 
Programm genutzten Ram wei¬ 
terhin zur Verfügung gestellt. 
Beim ersten Kopierdurchgang 
wird die Floppyroutine, die für 
die schnelle Bearbeitung und 
Übertragung zuständig ist, in 
den Speicher der Floppy über¬ 
tragen. Am Ende des Kopier¬ 
vorganges werden alle be¬ 
nutzten Bereiche so 
zurückgeschrieben, daß ein 
neuer Kopiervorgang gestartet 
werden kann. Beendet wird 
das Programm durch Drücken 
des Resets, das auch auf der 
Platine vorhanden ist. 

Erläuterung diverser Routinen: 
Bildan- und Bildausschalten: 
Ida - dol 1 ; Adresse im VIC 
eor -10; setzt/löscht 4. Bit 
sta -d011 
rts 

Bankwechsel: 
jsr bild an/aus 
loopl cic ; auf 
Ida -d012 ; Rasterzeile 
bcs loopl ; des vic warten 
Ida bank ; bankwert s.u. 
sta -deOO ; Ex-port 
jsr bild an/aus 

Der Bildschirm muß während 
des Schaltvorgangs ausge¬ 
schaltet bleiben. 

Lesen des Rams unter dem 


Ram! 

(bei -8000 bis -9fff) 

Idx bank ; x-Register 
inx ; gleich bank +1 
Ida - 8000 ; Adresse 
dex ; x = Bank 
stx - deOO ; externes an 
rts ; 

Soll das externe Ram ausgele¬ 
sen werden, so muß der Wert 
in -deOO um 1 erhöht werden. 
Dabei gilt es, einige wichtige 
Regeln zu beachten: 

1. Sie müssen daran denken, 
daß der 10-Bereich eingeschal¬ 
tet werden muß, (siehe Wert in 
Adresse -0001) 

2. Vergessen Sie nie, daß Sie 
die Adresse - deOO nicht aus- 
lesen können! Vermerken Sie 
daher immer zusätzlich unter 
einer anderen Adresse (z. B. 
-0002), was in -deoo ges¬ 
peichert steht. 

Doch nun eine Routine zum 
Auslesen einer beliebigen 
Adresse. Hierbei wird immer 
nur der Wert gelesen, der sich 
in der Ram-Adresse befindet. 
Liegt der Wert der Adresse 
zwischen -8000 und - 9fff, so 
wird das interne Ram gelesen, 
sei ; IRQ sperren 
Idx Bank ; internes Ram 
inx 

stx -deOO 

Ida - 34 ; alles Ram 

sta -01 

Ida - Adresse ; Peeken 
Idy - 37 ; normaler C-64 
sty -01 

dex ; externes Ram 
stx -deOO ; ein 
cli ; IRQ ein 
rts 


Tabelle der Pokes bei -deOO: 

Wert Bank Ram bei - 8000 
00 0 externes Ram 
01 0 internes Ram 
02 1 externes Ram 
03 1 internes Ram 
04 2 externes Ram 
05 2 internes Ram 
06 3 externes Ram 
07 3 internes Ram 

Hinweise zum Eintippen des 
Programms: 

Üm die Eingabe des Pro¬ 
gramms zu vereinfachen, ha¬ 
ben wir das Programm mit 
einem DATA-LOADER verse¬ 
hen. Achtung, da das Pro¬ 
gramm später am 
BASIC-Anfang generiert wird, 
muß vor der Eingabe bzw. vor 
dem Laden folgende Zeile im 
Direktmodus eingegeben 
werden: 


POKE 43,0:POKE 44,20:POKE 
20*256-1,0:NEW 

Diese Befehlsfolge muß einge¬ 
geben werden, bevor man das 
Listing startet. Ansonsten be¬ 
steht die Gefahr, daß das Pro¬ 
gramm zerstört wird. Nach dem 
Start wird das Kopierprogramm 
erzeugt. Es kann anschließend 
mit SAVE abgespeichert wer¬ 
den. Später wird das Pro¬ 
gramm einfach mit LOAD 
geladen und mit RUN 
gestartet. 

So das wäre es für heute. Al¬ 
lerdings gibt es noch weitere 
Programme, die wir bezüglich 
der vorgestellten Speicherer¬ 
weiterung anzubieten haben. 
In einem der nächsten Hefte 
folgt eine leistungsstarke 
BASIC-Erweiterung, die den 
gesamten Speicher ausnutzt. 


Das Listin 


C—64 LISTING + CHECKSUMMEN <C V1.0) 


1 

REM 

«tt****«*****««****«*««******««**« 

<4> 

2 

REM 

* 

* 

<99> 

3 

REM 

* 

FASTNIBDLER * 

< 153> 

4 

REM 

* 

* 

<101> 

5 

REM 

* 

COPYRIGHT BY U.HOFFMANN * 

<213> 

6 

REM 

* 

* 

< 103> 

7 

REM 

* 

264K ERWEITERUNG NOTWENDIG * 

<21 > 

8 

REM 

* 

* 

< 105> 

9 REM *** 

10 PRINT" 

****************************** 

iCLEAR D0UN2 SPACE3y***<.SPACE }FASTN 

< 12> 

IBBLER (.SPACE T *** 

<48> 


20 PRINT:PRINT " I DOUN J SPEICHERERWEITERUNG (SP 



4C£>NOTWENDIG<SP*CE>!“ <6> 

30 PRINT" < POWW2 >BITTEt SP/ICO MftRTEN? ? ! " <31> 

60000 DIMH<75):FORI=0TO9 <123> 

60010 H <48+1)=1:H(65+1)=1+10:NEXT <145> 

60020 FORI= 2048 TO 5070 :READA* <220> 

60030 H=ASC(LEFT#(A*,1)) <234> 

60040 L=ASC(RIGHT*<A*,1>> <253> 

60050 D=H(H)*16+H(L):S=S+D:POKEI,D <13> 

60060 A=A+1;IFA<20THENNEXT:A=-1 <97> 

60070 READV:Z=Z+1:IFV=STHEN600B5 <177> 

60080 PRINT"DATAFEHLER ( SPACE >IN< SP4C£ >ZEILE{ 

SPACE yi ";60200+ Z:END < 39 > 

60085 IFA< 0THEN60100 <116 > 

60090 S*0:A=B:NEXT <246> 

60100 REM INIT <129> 

60110 PRINT" C CLEAR J P0KE43,1:P0KE44,8« P0KE45, 
199:POKE< SP4CC >46.19" <58> 


60120 PRINT" C POMWgT FASTNIBBLERC SP/lCO KANNTSP 
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^CE> NORMAL I SP ACH ■> ABGESPE ICHERT" <17> 

60130 PRINT“WERDEN! i SPACE J START I SPACE i ERFOLG 
T< SP4Cf >MIT< SP,4Cg >RUN" < 1B8> 

60140 POKE 631,19:P0KE 632,13:P0KE 633,13s PO 
KE 190,3 <B3> 

60150 END <^6> 

60201 DATA 00,26,00,03,07,9E,32,30,30,38,20, 

20,43,29,20,54,48,45,20,52, 1167 <5> 

60202 DATA 45,41,40,20,43,52,45,57,20,20,20, 

20,20,20,20,20,20,00,00,00, 835 <157> 

60203 DATA 78,A9,34,85,01,A0,00,C6,AF,CE,3B, 

08,Bl,AE,99,00,00,08,D0,FB, 2438 <232> 

60204 DATA A5,AF,09,08,D0,ED,A0,07,B9,57,08, 

99,AA,00,88,D0,F7,D9,5F,08, 2643 <20O> 

60205 DATA 91 ,AC,C8,DO,FB,A2,FF,9A,40,00,01 , 

00,80,4F,F5,E6,01,EE,20,D0, 2782 <6B> 

60206 DATA 06,01,Bl,B0,2A,2A,2A,2A,29,07,AA, 

BD, 2E,01,85,AO,B1,B0,29,1F, 1904 <186> 

60207 DATA AA,20,36,01,20,AB,00,A5,BO,05,Bl , 

D0,DA,A9,37,05,01,58,40,00, 1931 <155> 

60200 DATA 80,64, AC ,50,9D, 72,75,4F,51 ,E6,B0, 

D0,02,E6,B1,60,E6,AE,D0,02, 2773 <51> 

60209 DATA E6,AF,60,B1,B0,F0,01,EB,86,02,AA, 

40,36,01,98,30,A9,FF,91,AE, 2719 <155> 

60210 DATA 20,3D,01,CA,D0,F8,60,B1,80,20,36, 

01,40,53,01,Bl,B0,91,AE,20, 2152 <175> 

60211 DATA 30,01,20,36,01,CA,D0,F3,60,A9,04, 

FC,A9,08,85,02,Dl,B0,91,AE, 2307 <16B> 

60212 DATA 08,04,02,D0,F7,18,98,65,AE,85,AE, 

90,02,E6,AF,A0,00,OA,D0,E8, 2964 <155> 

60213 DATA 18,A5,02,65,B0,B5,B0,90,02,E6,B1, 

60,20,44,01,Bl,B0,20,53,01, 1996 <150> 

60214 DATA 06,02,D0,F9,40,36,01,20,44,01,20, 

64,01,06,02,D0,F9,60,20,71, 1920 <B0> 

60215 DATA 40,40,81,7B,A6,02,E8.8E,00,DE,A0, 

34,84,01,A0,00,B9,00,09,91, 1997 <0> 

60216 DATA FB,08,D0,FO,E6,FC,B9,00,0A,91,FB, 

08,00,46,D0,F6,AS,FB,18,69, 3441 <1B3> 

60217 DATA 46,85,FB,90,02,E6,FC,A9,37,B5,01, 

A5,02,6D,00,DE,EA,60,78,A6, 2586 <239> 

6021B DATA 02,EB,BE,00,DE,A0,34,84,01 ,A0,00, 

Bl,FB,99,00,09,08,D0,FB,E6, 2579 <12B> 

60219 DATA FC,Bl,FB,99,00,0A,CB,C0,46,D0,F6, 

A9,37,85,01,A5,02,8D,00,DE, 2647 <65> 

60220 DATA A5,FB,18,69,46,85,FB,90,02,E6,FC, 

EA,60,06,22,63,FF,1F,19,12, 2617 <120> 

60221 DATA 11,12,13,15,AD,74,80,A2,04,DD,76, 

80,OA,B0,FA,BD,7B,80,8D,71, 2447 <255> 

60222 DATA B0,60,A2,00,8E,03,DD,A2,0B,8E,00, 

DD,A2,03,20,00,DD,10,FB,BE, 2127 <154> 

60223 DATA 00,DD,AD,01,DD,20,00,DD,30,FB,60, 

AO, FF,80,03,DD,A0,0B,80,00, 2366 <91> 

60224 DATA DD,A0,03,20,00,DD, 10,FB,8D,01 ,DD, 

80,00,DD,20,00,DD,30,FB,60, 2300 <203> 

60225 DATA A0,00,80,03,DD,20,00,DD, 10,FB,AD, 

01,DD,99,00,09,08,20,00,DD, 2078 <149> 

60226 DATA 30,FD,AD,01,DD,99,00,09,08,D0,E6, 

20,00,DD,10,FB,AD,01,DD,99, 2574 <125> 

60227 DATA 00,0A,08,20,00,DD,30,FB,AD,01,DD, 

99,00,0A,08,00,46,D0,E4,60, 2326 <32> 

60228 DATA A0,00,B9,00,09,20,00,DD, 10,FB,8D, 

01,DD,08,B9,00,09,20,00,DD, 1908 <176> 

60229 DATA 30,FB,8D,01,DD,C8,D0,E6,B9,00,0A, 

20,00,DD,10,FB,8D,01,DD,C8, 2590 <79> 

60230 DATA B9,00,0A,20,00,DD,30,FB,BD,01,DD, 

08,00,46,D0,E4,60,A9,00,BD, 2438 <238> 

60231 DATA 20,D0,8D,21 ,D0,A2,FF,9A,A9,D7,A0, 

62,20,IE,AB,20,F3,B5,A9,08, 2685 <98> 

60232 DATA 20,0C,ED,A9,6F,20,B9,ED,A9,49,20, 

DD,ED,20,FE,ED,A9,08,20,B4, 2659 <140> 

60233 DATA FF,A9,6F,20,96,FF,20,A5,FF,C9,30, 

F0,03,40,E0,83,20,AB,FF,A9, 2974 <126> 

60234 DATA 00,20,00,ED,A9,6F,20,B9,ED,A0,00, 

B9,51,B3,09,FF,F0,06,20,DD, 2535 <212> 

60235 DATA ED,CQ,D0,F3,20,AE,FF,A9,0B,20,B4, 

FF,A9,6F,20,96,FF,20,A5,FF, 3162 <12B> 

60236 DATA 8D,72,80,20,A5,FF,8D,73,B0,20,AB, 

FF,AD,11,D0,29,EF,8D,11,D0, 2721 <35> 


60237 DATA A9,F2,A0,B7,B5,FA,B4,FB,A9,46,A0, 


01,85,FC,84,FD,A9,0B,20,00 , 2863 <U7> 

60238 DATA ED,A9,6F,20,B9,ED,A9,4D,20,DD,ED, 

A9,2D,20,DD,ED,A9,57,20,DD, 2920 <14S> 

60239 DATA ED,AS,FC,20,DD,ED,AS,FD,20,DD,ED, 

A9,22,20,DD,ED,A0,00,AA,B1, 3252 <204> 

60240 DATA FA,2O,DD,ED,E6,FA,D0,02,E6,FD,E6, 

FC,D0,02,E6,FD,CA,DO,EC,20, 3764 <193> 

60241 DATA FE,ED,AS,FC,09,84,90,B8.A9,08,20, 

00,ED,A9,6F,20,B9,ED,A9,4D, 3007 <193> 

60242 DATA 20,DD,ED,A9,2D,20,DD,ED,A9,45,20, 

DD, ED,A9,46,20,DD,ED,A9,01, 2B21 <247> 

60243 DATA 20,DD,ED,20,FE,ED,A9,80,OD,88,02, 

20,FD,85,78,A9,25,A0,88,85, 2774 <70> 

60244 DATA FA,84,FB,A2,04,AB,00,B4,FC,A4,FC, 

Bl,FA,84,FC,20,AE,80,E6,FC, 3386 <36> 

60245 DATA D0,F3,E6,FB,CA,D0,EE,4C,35,84,8D, 

74,80,20,7F,80,8D,71,80,A9, 3064 <93> 

60246 DATA 00,SD,75,8B,A9,0A,20,AE,B0,AD,74, 

80.20, B3,80,AD,75,80,20,B3, 2284 <16> 

60247 DATA 80,20,CB,80,20,00,08,20,91 ,80,09, 

01,F0,03,20,B8,83,EE,75,B0, 2111 <102> 

60248 DATA EE,75,80,AD,75,80,CD,71 ,80,90,Dl , 

A9,01,8D,75,B0,A9,0A,20,AE, 2641 <195> 

60249 DATA 80,AD,74,80,20,B3,80,AD,75,80,20, 

B3,80,20,OB,80,20,00,08,20, 2076 <206> 

60250 DATA 91,80,09,01 ,F0,03,20,BB,83,EE,75, 

80,EE,75,80,AD,75,80,CD,71, 2767 <206> 

60251 DATA 80,90,Dl ,60,93,0E, 90,44,20, 1D.D4 , 

48.45.20, D2,45,41,40,20,03, 2043 <111> 

60252 DATA 52,45,57,20,53,4F,46,54,57,41,52, 

45,20,40,41,42,2E.0D,11,4D, 1281 <20> 

60253 DATA 20,0A,50,52,45,53,45,4E,54,3A,0D, 

11,44,20,1D,D4,48,45,20,02, 1383 <16B> 

60254 DATA 45,53,54,20,03,4F,50,59,20,CF,46, 

20,04,48,45,20,D7.4F,52,40, 1889 <30> 

60255 DATA 44,0D,11,11,44,20,23,72,21,21,20, 

09,4E,53,45,52,54,20,4D,41, 1233 <200> 

60256 DATA 53,54,45,52,2D,44,49,53,4B,20,21, 

21,0D,00,4D,2D,52,16,00,02, 1001 <163> 

60257 DATA FF, 11 , 11,20,04,49,53,4B,20,55,4E, 

46,4F,52,4D,41,54,54,45,44, 1621 <66> 

60258 DATA 20,4F,52,20,45,40,50,54,59,20,46, 

40,4F,50,50,59,21,21,0D,00, 1209 <13> 

60259 DATA 91,20,20,21,21,20,44,49,53,4B,20, 

49,53,20,57,52,49,54,45,50, 1301 <77> 

60260 DATA 52,4F,54,45,43,54,45,44,20,21,21, 

0D,00,02,45,41,44,59,21,21, 1280 <217> 

60261 DATA 00,D3,41,56,45,20,41,47,41,49,4E, 

3F,20,D9,2F,OE,00,AE,75,80, 1799 <31> 

60262 DATA E8,AC,74,80,08,CB, 18,20,0A,E5,A9, 

D2,20,D2,FF,78,60,AE,75,80, 2854 <7B> 

60263 DATA EB ,AC, 74,80,08,08,18,20,0A,E5,A9, 

D7,20,D2,FF,78,60,20,A5,FF, 2892 <13B> 

60264 DATA C9,0D,D0,F9,20, AB,FF , A9,58, A0,83, 

40,0A,84,09,08,D0,D7,A9,06, 2702 <235> 

60265 DATA 2O,AE,80,A9,04,8D,88,02,A9,D7,A0, 

82,20,1E,AB,A9,7F,A0,83,5B, 236B <24> 

60266 DATA 20,IE,AB,AD,11,D0,09,10,SD,11,D0, 

20,F3,85,40,40,81,A0,00,84, 1991 <218> 

60267 DATA FB,B9,03,B0,99,00,0B,CB,C0,80,D0, 

F5,AD,8A,84,85,02,A9,08,85, 2592 <180> 

60268 DATA FC,60,A9,00,8D,8A,84,20,1C,B4,A9, 

01,BD,74,80,20,65,82,EE,74, 2292 <252> 

60269 DATA B0,AD,74,80,09,09,F0,0F,C9,11,F0, 

0B,09,1A,F0,07,09,24,F0,03, 2433 <33> 

60270 DATA 40,42,84,18,AD,12,D0,09,1F,B0,F8, 

EE,8A,84,EE,8A,84,AD,8A,B4, 2B12 <173> 

60271 DATA C9,0B,D0,0B,A9,00,0D,8A,B4,8D,00, 

DE, 40,9F,84,8D,00,DE,20,IC, 2161 <214> 

60272 DATA 84,AD,74,80,40,42,B4,00,09,4E,53, 

45,52,54,00,54,41,52,47,45, 1791 <173> 

60273 DATA S4,2D,44,49,S3,4B,21,00,A2,14,A0, 

1D,18,20,0A,E5,A9,8B,A0,B4, 1727 <194> 

60274 DATA 20,1E,AB,A2,15,A0,19,18,20,0A,ES, 

A9,92,A0,84,20,1E,AB,20,7A, 1890 <10B> 

60275 DATA 86,20,F3,85,78,A9,8C,8D,BB,02,AD, 

11,D0,29,EF,8D,11,D0,20,FD, 2579 <120> 

60276 DATA 85,4C,66,85,BD,74,B0,20,7F,80,BD, 

71,B0,A9,0E,20,AE,80,AD,74, 2304 <176> 
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60277 DATA 80,20,B3,80,AD,71,80,20,B3,80,AD, 
72,80,20,83,80,AD,73,80,20, 2422 

60278 DATA B3,80,A9,00,8D,75,80,20,37,08,A9, 
0C,20,AE,80,AD,74,80,20,B3, 2100 

60279 DATA B0,AD,75,80,20,B3,80,20,07,81,20, 
91,80,09,01,F0,03,20,F1,83, 2207 

60280 DATA EE,75,80,EE,75,B0,AD,75,80,CD,71, 
80,90,01,A9,01,8D,75,80,20, 2771 

60281 DATA 37,08,A9,0C,20,AE,80,AD,74,B0,20, 
B3,80,AD,75,80,20,B3,80,20, 2123 

60282 DATA 07,81 ,20,91 ,80,C9,01 ,F0,03,20,Fl , 
83,EE,75,80,EE,75,80,AD,75, 2546 

60283 DATA 80,CD,71,80,90,01,60,A9,00,85,FB, 
A9,0B,85,FC,A9,01,20,07,84, 2690 

60284 DATA EE,74,80,AD,74,80,C9,09,F0,0F,C9, 
11,F0,0B,C9,1A,F0,07,09,24, 2544 

60285 DATA F0,03,40,70,85,18,AD,12,D0,C9,1F, 
B0,F8,EE,8A,84,EE,8A,84,AD, 2832 

60286 DATA 8A,B4,C9,08,D0,3F,A9,00,BD,8A,84, 
BD,00,DE,85,02,A2,14,A0,ID, 2199 

60287 DATA 18,20,0A,ES,A9,AB,AB,83,20,1E,AB, 
A2,15,AB,16,18,20,0A,ES,A9, 1977 

60288 DATA A8,A0,83,20,1E,AB,20,7A,86,20,F3, 
B5,09,59,D0,03,40,03,84,78, 2412 

60289 DATA A9,06,20,AE,80,SB,40,40,81,80,00, 
DE,85,02,A9,0B,85,FC,A9,00, 2098 

60290 DATA 85,FB,AD,74,80,40,70,85,A9,00,85, 
06,20,3E,Fl,F0,FB,60,A9,10, 2729 

60291 DATA BD,70,86,A9,29,8D,67,B6,A9,A4,A0, 
86,20,1E,AB,A9,D2,85,22,A9, 2550 

60292 DATA 86,85,23,A9,BA,A0,23,20,CA,F1,88, 
D0,FA,20,60,B6,D0,F1,A9,37, 2856 

60293 DATA A0,B7,20,IE,AB,A9.D0.8D,70,86,A9, 
A2,BD,67,86,A9,B1,85,22,A9, 2683 

60294 DATA 87,85,23,A9,04,85,24,AB,00,Bl,22, 
AA,08,B1,22,AB,20,00,ES,20, 2070 

60295 DATA 73,86,20,73,86,20,60,86,20,73,86, 
06,24,D0,£4,78,60,A0,00,Bl, 2296 

60296 DATA 22,F0,00,48,29,7F,20,CA,Fl,20,73, 
86,68,10,EE,60,E6,22,D0,02, 2210 

60297 DATA E6,23,60,A9,00,A8,85,22,85,24,A9, 
BC,85,23,A9,04,85,25,8D,88, 2131 

60298 DATA 02,AA,B1,22,91,24,C8,D0,F9,E6,23, 
E6,25,OA,D0,F2, AD, 11 ,D0,09, 2812 

60299 DATA 10,8D,11,D0,60,93,0E,2O,2B,BB,60, 
23,00,20,60,AE,20,30,30,DD, 1865 

60300 DATA 00,7D,20,30,31,FD,70,20,30,32,FD, 
7D,20,30,33,FD,7D,20,30,34, 1781 

60301 DATA FD,7D,20,30,35,FD,7D,20,30,36,FD, 
7D,20,30,37,FD,7D,20,30,38, 2050 

60302 DATA FD,7D,20,30,39,FD,7D,20,31 ,30,FD, 
7D,20,31,31,FD,70,20,31,32, 2039 

60303 DATA FD,7D,20,31 ,33,FD,7D,20,31 ,34,FD, 
7D,20,31,35,FD,7D,20,31,36, 2046 

60304 DATA FD,7D,20,31,37,FD,7D,20,31,38,FD, 
7D,20,31,39,FD,7D,20,32,30, 2053 

60305 DATA FD,00,DD,43,20,01,AD,51,00,01,Bl, 
51,00,01,BD,44,20,01,30,48, 1882 

60306 DATA 20,01,31,49,20,01,32,49,20,01,33, 
4A,20,20,28,31,32,33,34,35, 828 

60307 DATA 36,37,38,39,30,31,32,33,34,35,36, 
37,38,39,30,31,32,33,34,35, 1050 

60308 DATA 36,37,38,39,30,31,32,33,34,35,20, 
00,12,21,80,44,00,05,B3,00, 1228 

60309 DATA 13,1B,80,45,00,01,BD,44,20,04,00, 
14,14,B0,46,00,01,BD,4A,20, 1551 

60310 DATA 04,00,15,14,DD,51,20,21,6A,00,78, 
20,82,F9,A2,00,8E,03,18,A0, 1540 

60311 DATA 10,20,00,18,10,FB,80,00,16,A0,0F, 
20,00,18,30,FB,AD,01,18,9D, 1412 

60312 DATA 00,03,80,00,18,E8,D0,E3,EE,65,01, 
AD,65,01,C9,07,D0,D9,4C,B0, 2158 

60313 DATA 03,78,20,BE,FA,20,82,F9,AD,00,IC, 
29,F7,8D,00,10,20,94,05,85, 1982 

60314 DATA 01,29,01,49,01,0A,09,0D,8D,0C,18, 
AD,00,IC,09,08,8D,00,IC,AD, 1078 

60315 DATA 00,1C,09,0E,BD,0C,IC,AS,CI,29,7E, 
09,06,D0,03,40,AB,EA,20,99, 1842 

60316 DATA 05,85,02,20,99,05,85,03,20,14,05, 


A5,01,29,7E,09,0A,D0,45,A9, 20B9 

60317 DATA 01,85,04,A9,FF,8D,03,18,80,00,18, 
20,Bl,05,90,06,06,04,D0,EF, 2292 

60318 DATA B0,03,20,ED,05,08,48^10,A3,50,FE, 
B8,AD,01,IC,SD,01,18,EE,00, 1980 

60319 DATA 18,50,FE,B8,AD,01,10,80,01,18,CE, 
00,18,88,D0,E5,68,28,80,02, 2035 

60320 DATA A9,01,20,70,05,40,00,03,09,00,00, 
68, AD,00, IC,29, 10,D0,04 ,A9, 1574 

60321 DATA 0B,D0,1E,20,B1,05,B0,19,A2,09,50, 

FE, B8,CA,D0,FA,A9,FF,8D,03, 2578 

60322 DATA IC,AD,00,10,29,1F,09,00,8D,00,10, 
A9,01,48,A2,00,8E,00,18,0A, 1467 

60323 DATA 8E,01,IC,A2,05,88,50,FE,B8,CA,D0, 
FA,A0,A3,50,FE,B8,CE,00,18, 2771 

60324 DATA AD,01,18.8D.01,1C,50,FE,BB,EE,00, 
18,AD,01,18,8D,01,IC,88,D0, 1B60 

60325 DATA E5,CE,00,18,50,FE,20,00,FE,68,20, 
77,05,4C,00,03,C9,0E,D0,F9, 2090 

60326 DATA 20,99,05,85,12,20,99,05,85,13,A3, 
03,85,43,A0,00,84,03,A5,39, 1952 

60327 DATA 99,00,07,C8,C8,A5,C3,99,0O,07,CB, 
A5,02,99,00,07,08,A5,13,99, 2336 

60328 DATA 00,07,08,A5,12,99,00,07,C8,A9,BF, 
82,99,00,07,08,20,F7,A5,C3, 2063 

60329 DATA 45,02,45,13,45,12,99,F9,06,E6,C3, 
A5,03,05,43,90,04,98,48, A2, 2621 

60330 DATA 00,A9,4E,9D,00,02,EB,D0,FA,A9,07, 
85,31,20,30,FE,68,AB,88,B9, 2381 

60331 DATA 00,07,99,45,07,88,D0,F7,AD,00,07, 
8D,45,07,20,F5,FD,A9,02,85, 205B 

60332 DATA 31,2B,E9,F5,B5,3A,20,BF,F7,A2,B0, 
86,32,A9,FF,8D,03,IC,AD,00, 2299 

60333 DATA 10,29,1F,B9,CB,8D,0C,1C,A9,5S,8D, 
01,1C,50,FE,B8,CA,D0,FA,A9, 2253 

60334 DATA FF,A2,05,5B,FE,B8,8D,B1,1C,CA,D0, 
F7,A2,0A,A4,32,B9,00,07,50, 2425 

60335 DATA FE,B8,BD,01,1C,OB,CA,D0,F3,84,32, 
A9,55,A2,09,50,FE,B8,BD,01, 272B 

60336 DATA 1C,CA,D0,F7,A9,FF,A2,05,5B,FE,BB, 
8D,01,1C,CA,D0,F7,A2,BB,BD, 3159 

60337 DATA 00,01,50,FE,B8,8D,01,1C,EB,D0,F4, 
BD,00,02,50,FE,B8,8D,01,IC, 2252 

60338 DATA EB,D0,F4,A9,55,A2,0B,50,FE,B8,8D, 
01,1C,CA,D0,F7,C6,C3,DB,9B, 3209 

60339 DATA 50,FE,B8,50,FE,B8,20,00,FE,40,00, 
03,A5,22,38,E5,C2,F0,0F,49, 2407 

60340 DATA FF,85,4A,E6,4A,06,4A,A5,C2,85,22, 
20,47,05,A5,02,A2,04,DD,D6, 2440 

60341 DATA FE,CA,B0,FA,8A,45,0A,20,CE,B5,44, 
AD,00,10,29,9F,05,44,8D,00, 2153 

60342 DATA 1C,60,A5,4A,F0,FB,10,09,E6,4A,AE, 
00,IC,CA,38,B0,06,06,4A,AE, 2271 

60343 DATA 00,1C,E8,8A,29,03,85,4B,AD,00,IC, 
29,FC,05,4B,BD,B0,1C,A2,00, 1555 

60344 DATA A0,06,OA,D0,FD,88,D0,FA,F0,D0,A0, 

FF, 80,03,18,A0,10,20,00,18, 2697 

60345 DATA 10,FB,80,01,18,80,00,18,A0,0F,2C, 
00,18,30,FB,BC,00,18,60,A0, 1559 

60346 DATA 00,80,03,18,A0,10,20,00,18,10,FB, 
80,00,1B,A0,0F,2C,00,18,30, 1133 

60347 DATA FB,AD,01,18,80,00,18,60,A5,12,85, 
16,A5,13,85,17,A5,C2,B5,18, 1903 

60348 DATA A5,03,85,19,45,16,45,17,45,18,85, 
1A,20,34,F9,A2,5A,20,ED,05, 1812 

60349 DATA 90,01,60,50,FE,B8,AD,01,IC,D9,24, 
00,D0,07,O8,O0,08,D0,F0,18, 2301 

60350 DATA 60,CA,D0,E5,A9,02,38,60,A9,D0,8D, 
05,18,20,05,18,10,0D,20,00, 1751 

60351 DATA 1C,30,F6, AD,01,1C,B8,A0,00,18,60, 
A9,03,3B,60,DB,00,FF,00,FF, 2041 

60352 DATA 00,19,00 , 25 
ENDE DES LISTINGS 


<206> 

<215> 
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PROGRAMME 


Das Listin 


C-16 LISTING + CHECKSUMMEN <OC VI.0) 


100 REM * COPYRIGHT * 

110 t 

120 PRINT" ( CLEAR y 11 CHR« <27) 11 R" J 

130 PRINT "( DOUH SPAC£ y SÜFTWAREMAESIGES < SPACE 

> AN- < SPACE >UND C SPACE J AUSSCHALTEN" 

140 PRINT "( DOUH SPACE 3 3 »«»« ( SPACE2 3 DER ( SPACE 

> 64K-ERWEITERUNG ( SPACE3 3 ****" 

150 PRINT“ ( DOUH SPACE33++(SPACE_3VON(SPACE3MI^ 
RCUS<SP4C£>SCHMIDT (SPACE23 (1988) ( SPACE 3++" 
160 : 

170 REM * INITIALISIEREN * 

180 : 

190 M=PEEK<16374) 

200 IF M=141 THEN M*- M AUSGESCHALTET"iGOTO 25 

0 

210 M*«*"EINGESCHALTET (SPACE} " 

220 i 

230 REM * MODUS ANZEIGEN + ABRAGE • 

240 : 

250 PRINT" ( DOUH3 SPACE3 3HODUS( SPACE 3 i ( SPACE2 
>"M*" 

260 PRINT“ ( D0UH2 SPACE3 i(\( SPACE y = ( SPACE yp t END 
ERN( SPACE7 3/( SPACE 3RESET" 

270 PRINT "( DOUH SPACE3 3N( SPACE y~( SPACE yNlCH7 
( SPACE 3PiENDERN( SPACE y / ( SPACE 3RESET" 

280 GETKEYA»!IF A*«"A" THEN 340 
290 IF A*«"N" THEN SYS 65526 
300 GOTO 280 
310 I 

320 REM * AN- BZW. AUSSCHALTEN * 

330 > 

340 IF M=141THEN 380 

350 FOR A“0TQ7JN(A>“PEEK(65526+A)>NEXTA 
360 FOR A=0TO7:POKE 16374+A,N(A)sNEXTA 
370 SYS 65526 

380 FOR A=0TO7iPOKE 16374+A,0«NEXTA 
390 SYS 65526 

ENDE DES LISTINGS 


<91 > 

< 168> 
<97> 

< 135> 

< 17> 

<254> 

<218> 

<65> 

<238> 

<25> 

<230> 

< 101 > 

< 22 > 

< 121 > 
<42> 

<40> 

< 180> 

< 125> 

< 14B> 
<243> 
<130> 

< 113> 
<51 > 

< 133> 

< 127> 
<58> 
<241 > 
<46> 
<57> 
< 66 > 


Zuviel Speicher¬ 
platz beim C-16! 

für C-16 + 64K-Erweiterung 


Sie besitzen einen erweiterten 
C-16 (64K) und möchten hin 
und wieder auch Spiele oder 
andere Software testen, die nur 
ohne 64K-Erweiterung ab- 
laufffähig ist? Wir bieten Ihnen 
heute ein kurzes Programm 
zum Abtippen, daß ein solches 
Vorhaben völlig unproblema¬ 
tisch werden läßt. 


Das Programm wird mit LOAD 
geladen und mit RUN gestar¬ 
tet. Nach dem Start erscheint 
ein Menü auf dem Bildschirm. 
Sie können wählen und durch 
Ihre Eingabe festlegen, ob die 
64K-Erweiterung aus- oder 
eingeschaltet werden soll. Ein 
RESET schaltet die Erweite¬ 
rung wieder ein. 



Fenstertechnik in 

eigenen Programmeni für C-16/U6/+4 


Mit "Window-Window" können 
Sie auch in selbstgebastelten 
Programmen Fenster erzeu¬ 
gen. Das Programm eignet 
sich, um an entsprechender 
Stelle in eigene Programme 
eingebunden zu werden. Es 
erzeugt ein Fenster mit Um¬ 
rahmung und sichert die dar¬ 
unterliegende Färb- und 
Textpage. Nach Löschen des 
Windows erscheint die 
vollständige Seite unverändert 
auf dem Bildschirm. 

Nachdem Sie das Listing ein¬ 
getippt haben, laden und star¬ 
ten Sie WINDOW.DATA. Das 
erzeugte Maschinenprogramm 


jmwiiLjMiimmum 
im m iuifii m ffl.. 

«Mm mm 

• mr Arft rsiiAki if/uhfy 







speichern Sie mit S 
WINDOW.CODE, 8, 36A9, 
3800. 

Das Programm wird mit dem 
Befehl SYS 13997, XI, Y1, X2, 
Y2 aufgerufen. XI und Y1 be¬ 
zeichnen dabei die Koordina¬ 
ten der linken, oberen Ecke, X2 
und Y2 die Koordinaten der 
rechten, unteren Ecke. 

Das Programm erzeugt inner¬ 
halb des Rahmens ein Window 
herkömmlicher Art ((ESC ) + 
( T ); ( ESC ) + ( B )). 

Über dieses Fenster werden 
dem User Inputabfragen 
ermöglicht. 

Wird das Fenster nicht mehr 
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PROGRAMME 


benötigt, so kann es mit dem 
Befehl'SYS 14283 gelöscht 
werden. Gleichzeitig wird das 
gespeicherte Färb- und Tex¬ 
tram zurückkopiert und der ur¬ 
sprüngliche Zustand 

wiederhergestellt. -Mit dem 
Aufruf des Programms wird 
das Färb- und Textram in den 
Bereich -3800 - -3FFF ko¬ 
piert. Das Programm belegt 
dadurch den Bereich von 
- 36A9 - - 3FFF. 

Soll Window-Window zum fe¬ 
sten Bestandteil eines eigenen 
Programms werden, so müs¬ 
sen Sie den Datalader in Ihr 
Programm einbinden. 

Eine Alternative zum Einbinden 
des Programms liegt in der 
Möglichkeit, das Window- 


Window mit LOAD ”name”, 8, 
1 nachzuladen und mit POKE 
55, 169 : POKE 56,54 : NEW 
vor Überschreiben zu 
schützen. 

Wenn nach der Eingabe der 
gewünschten Größe des Win¬ 
dows die Fehlermeldung 
"ILLEGAL QUANTITY 

ERROR” erfolgt, sollten Sie 
andere Werte wählen. Die Feh¬ 
lermeldung erscheint, wenn für 
die X- und Y-Werte zu kleine 
oder auch zu große Werte ge¬ 
wählt werden. Das Fenster be¬ 
nötigt eine Mindestbreite und 
-höhe von drei Kästchen 
(Charakter). Weiterhin darf der 
X-Wert nicht die Zahl 38 über¬ 
steigen und der Y-Wert nicht 
die Zahl 23. Und nun viel Spaß 
beim Fensterin. 


C-16 LISTING + CHECKSUMMEN (OC VI.0) 


10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
101 10 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 


WINDOW — WINDOW* 

• 

AUSGEDACHT & GESCHRIEBEN • 
VON DANIEL KRIZAN * 

3400 GOETTINGEN * 

• 

ANLEITUNG: • 

DIESES PROGRAMM ERZEUGT * 
EIN WINDOW MIT UMRAHMUNG! • 
DABEI SPEICHERT ES DIE * 

FÄRB- UND TEXTPAGE AB, • 

DAMIT DIESE BEIM LOESCHEN • 
DES WINDOWS WIEDER • 

ERSCHEINT. NACH AUFRUF * 
DES PROGRAMMS ERSCHEINT * 
AN DER ANGEGEBENEN STELLE * 
EIN WINDOW MIT RAHMEN. • 
GLEICHZEITIG WIRD DIE • 
FÄRB- UND TEXTPAGE ABGE- * 
SPEICHERT. DARAUF WIRD * 

DER BILDSCHIRM AUF DEN • 

BEREICH DES WINDOWS BE- * 
GRENZT. DADURCH KANN MAN • 
IM WINDOW Z.B. INPUTAB— * 
FRAGEN MACHEN OHNE DAS • 
DER RAHMEN DES WINDOWS • 
STOERT. NACH AUFRUF DER * 
WINDQWLOESCHROUTINE WIRD • 
DAS WINDOW GELOESCHT UND • 
DER URSPRUENGLICHE ZUSTAND* 
DES BILDSCHIRMS WIEDER- * 
HERGESTELLT. * 

TIPPEN SIE DIESES PROGRAMM* 
OHNE REM-ZEILEN AB UND • 
STARTEN SIE ES. NUN * 

KOENNEN SIE DAS MASCHINEN-« 
PROGRAMM IM MONITOR MIT * 
S“WINDOW.CODE",8,36A9,3800* 
ABSPEICHERN. • 

PROGRAMMAUFRUF: * 

ERZEUGEN EINES WINDOWS: • 

SVS13993,XI,Y1,X2,Y2 * 

XI-X-WERT LINKS-OBEN * 


<230> 
< 162 > 

< 155> 
<182> 
<222> 

< 138> 

< 130> 
< 222 > 

< 14> 
<236> 
<251 > 
<140> 
<67 > 
<215> 
< 220 > 
<18> 

< 169> 
<47> 

< 137> 

< 111 > 
<23> 
<160> 
<5> 

< 106> 
<46> 

< 175> 

< 116> 
<69> 
<22> 

< 113> 
<46> 

< 191 > 

< 148> 
< 200 > 
<2> 
<245> 

< 16B> 
< 200 > 
<84 > 
<26> 
<10> 
<25> 
<15B> 
<232> 
<5> 


10450 REM * Y1-Y-WERT LINKS-OBEN * <24> 

10460 REM * X2—X-WERT RECHTS-UNTEN * <123> 

10470 REM * Y2—Y—WERT RECHTS-UNTEN * <142> 

10480 REM * * <121> 

10490 REM * LOESCHEN EINES WINDOWS: * <98> 

10500 REM * SYS 14283 * <242> 

10510 REM * * < 152> 

10520 REM • LADEN: • <106> 

10530 REM * LADEN DES PRGRAMMS IM * <199> 

10540 REM • MONITOR MIT: • <144> 

10550 REM * L"WINDOW.CODE",8 * <132> 

10560 REM • DANACH FOLGENDE ZEILE IM * <107> 

10570 REM • DIREKTMODUS EINGEBEN: * <5> 

10580 REM * P0KE55,169:P0KE56,54:NEW * <236> 

10590 REM * * <232> 

10600 REM * SOLLTEN SIE DAS PROGRAMM * <22> 

10610 REM • IN IHRES FEST EINBINDEN • <136> 

10620 REM * WOLLEN, DANN SOLLTEN SIE * <75> 

10630 REM * DEN DATALADER UEBERNEHMEN * <3> 

10640 REM * UND IM PROGRAMM AUFRUFEN. * <206> 

10650 REM * TROTZDEM MUESSEN SIE DANN * <94> 

10660 REM • NOCH DIE OBIGE ZEILE IN • <1B7> 

10670 REM * DAS PROGRAMM MIT UEBER- * <166> 

10680 REM * NEHMEN. (OHNE 'NEW') * <97> 

10690 REM * VIEL SPASS!!!!!!!!!!!!!!! * <29> 

10700 REM * * <Q6> 

10710 REM **•***••**•*•*•••*****•*•»••* <174> 

60000 DATA20,IC,99,60,38,20,F0,FF, 892 <196> 

60001 DATA8E,B8,37,BC,B9,37,A0,00, 921 <30> 

60002 DATAA2,00,BD,00,0B,9D,00,38, 572 <80> 

60003 DATAE8,18,E0,00,D0.F4.EE,BD, 1359 <44> 

60004 DATA36,EE,C0,36,C8,C0,08,D0, 1146 <237> 

60005 DATAE7,A9,08,8D,BD,36,A9,38, 1017 <154> 

60006 DATA8D,C0,36,20,D8,9D,8E,B4, 1114 <31> 

60007 DATA37,20,D8,9D,8E,B5,37,20, 870 <21> 

60000 DATADB,9D,8E,B6,37,20,D8,9D, 1157 <125> 

60009 DATA8E,B7,37,AD,B6,37,ED,B4, 1207 <163> 

60010 DATA37,20,BA,37,AD,B7,37,ED, 976 <101> 

60011 DATAB5,37,20,BA,37,AD,B6,37, 919 <246> 

60012 DATAC9.27,10,9C,AD,B7,37,C9, 1024 <25> 

60013 DATA18,10,95,18,AD,B6,37,E9, 856 <5B> 

60014 DATA01 ,8D,45,37,BD,62,37,AD, 733 <23> 

60015 DATAB7,37,E9,01,BD,75,37,8D, 926 <15> 

60016 DATA88,37,AC,B4,37,AE,B5,37, 1008 <229> 

60017 DATA20,AF,37,20,4F,FF,B0,00, B04 <116> 

60018 DATAC8,20,AF,37,20,4F,FF,C0, 1020 <243> 

60019 DATAC0,AE,0O,C0,00,D0,F1,AC, 1179 <168> 

60020 DATAB4.37,AE,B7,37,20,AF,37, 909 <115> 

60021 DATA20,4F,FF,AD,00,CB,20,AF, 946 <79> 

60022 DATA37,20,4F,FF,C0,C0,BD,00, 994 <174> 

60023 DATAC0,00,D0,F1,AE,B5,37,AC, 1223 <234> 

60024 DATAB4,37,E8,20,AF,37,20,4F, 840 <45> 

60025 DATAFF,DD,00,E0,00,D0,F3,AE, 1325 <165> 

60026 DATAB5,37,AC,B6,37,EB,20,AF, 1084 <217> 

60027 DATA37,20,4F,FF,DD,00,E0,00, 866 <15> 

60028 DATAD0,F3,AD,B4,37,69,00,8D, 1105 <76> 

60029 DATAE7,07,AD,B5,37,69,01,BD, 894 <44> 

60030 DATAE6,07,AD,B6,37,E9,00,8D, 1021 <204> 

60031 DATAE8,07,AD.B7,37,E9,01,8D, 1025 <104> 

60032 DATAE5,07,20,8B,D8,60,18,20, 775 <143> 

60033 DATAF0,FF,60,00,00,00,00,00, 591 <237> 

60034 DATA00,C9,02,F0,09,C9,01,F0, 894 <86> 

60035 DATA05,C9,00,F0,01,60,20,IC, 603 <18> 

60036 DATA99,60,A0,00,A2,00,BD,00, 760 <B4> 

60037 DATA38,9D,00,08,E8,18,E0,00, 701 <234> 

60038 DATAD0,F4,EE,D1,37,EE,D4,37, 1459 <216> 

60039 DATAC8,C0,08,D0,E7,A9,38,GD, 1205 <244> 

60040 DATAD1,37,A9,08,SD,D4,37,AE, 1023 <81> 

60041 DATABB,37,AE,BB,37,AC,B9,37, 1064 <184> 

60042 DATA20,AF,37,60,37,60,00,FF, 764 <8B> 

60043 FORT- 13993 TO 14336 STEP8:P«0 <164> 

60044 FORI-0TO7:READA*:A-DEC(A*>:P-P+A:POKET 

+I,A:NEXTI <230> 

60045 READR:IFP< >RTHENPRINT"PRUEFSUMMENFEHLE 
R<SP4C£JIN<gP4C£> ZEILE"PEEK(63)+PEEK(64)*256 

:END <79> 

60046 NEXT:PRINT"DATAB(S£4C£>RICHTI8(S£4C£>E 

INGELESENtS£4C£> !“ <1B> 

ENDE DES LISTINGS 
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PROGRAMME 


Teil 2 


C-16 LISTING + CHECKSUMMEN <0C VI.0) 


10 SCNCLR <242> 

15 Y=RND<-TI> <51> 

20 PRINT “I RVSOH SP4C£>DEMQRQGRAMMCS/MCF RVSO 

FFi" <37> 

21 FQR T=3100 TO 40B0 <1> 

22 PQKET t INT<RND(0)*255) <41> 

23 NEXT <153> 

24 FOR T=2070 TO 3071 <29> 

25 POKET,INT(RND<0)*255) <44> 

26 NEXT <156> 

30 GETKEYY* <76> 

40 SYS13997,0,0,35,5 <16B> 

50 PRINT" C SP4CF >6EBENt SP>ICC >5IE< SP4CF >BITTEC 
SP4C£ >EINEt SP4CO ZAHLI SP/ICE >EIN! " <1B3> 

60 INPUT A <67> 

70 SYS142B3 <244> 

B0 PRINT: PRINT!PRINT" <FjL4S«0W>DIE<SP4C£>EING 
EGEBENE i SPACE i ZAHL!" <54> 

90 SYS13997.21,2,28,6 <55> 

100 PRINTA <127> 


110 

GETKEYY* 

< 156> 

120 

SYS142B3 

<3B> 

130 PRINT" CF1.NOCH CSPACE >EINCSP4COPAAR 
CSP4COMAL! " 

<206> 

140 

SYB13997,1,10,5,14 

<250> 

150 

PRINTA 

< 177> 

160 

GETKEYY* 

<206> 

170 

SYS142B3 

<BB> 

1B0 

SYS13997,6,12,10,16 

< 127> 

190 

PRINTA 

<217> 

200 

GETKEYY* 

<246> 

210 

SYS14283 

< 128> 

220 

SYS 13997,11,13, 15, 17 

<B0> 

230 

PRINTA 

<1> 

240 

GETKEYY* 

<30> 

250 

SYS14283 

<16B> 

260 

SYS13997,16,14,20,17 

< 117> 

270 

PRINTA 

<42> 

280 

GETKEYY* 

<71 > 

290 

SYS14283 

<209> 

300 

SYS13997,21,14,25,17 

< 195> 

310 

PRINTA 

<B2> 

320 

GETKEYY* 

< 111 > 

330 

SYS14283 

<249> 


ENDE DES LISTINGS 


R2D2 rostet nicht 


Starwars - nur für Könner 


für plus 4, C-16/116 


Ein Spiel für Spielernaturen, graphischen Gestaltung dieses den Checksummer zur Verfü- STARWARS abgespeichert 
die wissen, wie man mit einem Spiels begeistert sein. gung steht. Ich empfehle Euch, werden. 

Joystick umzugehen hat.- Die den ersten Teil im Bereich Zunächst ladet Ihr die Teile 

Erde soll von feindlichen Pia- Besitzen Sie den Plus 4 für -1000 --2001 zu speichern nacheinander mit den Befehlen 
neten angriffen werden. Eine oder einen C-16 mit 64K- und dabei den Checksummer LOAD "Teill”,08 und LOAD 
Flotte von Raumschiffen nähert Erweiterung, so ist das Eintip- ab der Adresse 12680 abzule- ”Teil2”, 08 . Über den Befehl 
sich, um den Planeten Erde zu pen mit dem Checksummer gen. Der Befehl zum Abspei- S”STARWARS”,08,1000,4000 
besetzen und zu erobern. Ihr vollkommen unproblematisch, ehern auf Diskette lautet S verbindet Ihr die Teile zu einem 
habt die Aufgabe, diesen An- wenn Sie dem Checksummer ‘Teill 1 ,08,1000,2001. Fürden Programm, das unter dem 
griff abzuwehren und möglichst einen Bereich ab der Adresse zweiten Teil wählt Ihr den Be- Namen STARWARS aufgeru- 
viele der feindlichen Raumkap- 32060 zuweisen. reich -2001 - -4000 und fen werden kann, 

sein zu vernichten. In einem Wegen des Umfangs des Pro- wählt für den Checksummer Auch wenn Ihr nicht mit Dis- 

Raumschiff durchquert Ihr das gramms sollten Besitzer eines die Adresse 4097. Der Spei- kette, sondern mit Datasette 
All. Überein Radargerät beob- C-16 ohne Erweiterung das Li- cherbefehl lautet dann S arbeitet, ist das Erstellen die- 
achtet Ihr die feindlichen Flug- sting in zwei Teile unterglie- Teil2', 08, 2001, 4000. ser Spielversion unproblema- 

körper, ortet Ihr und verfolgt dern und diese nacheinander tisch. -In den Lade- und 

sie. Mit der SPACE-Taste eingeben. So verhindert Ihr, Beide Teile müssen nach der Speicherbefehlen müßt Ihr 

könnt Ihr die Fluggeschwindig- daß der Speicher überlastet Eingabe über den Befehl MO- dann nur anstelle der 08 den 

keit beschleunigen. Mit der wird und genügend Platz für NITOR verbunden und als File Wert 01 wählen. 

Commodore-Taste ver¬ 
langsamt Ihr die Fahrt. Eine 
Spielunterbrechung erreicht Ihr 
über die Taste RUN/STOP. 

Selbst wenn Ihr Euch den An¬ 
greifern auf Schußweite genä¬ 
hert habt, bleibt es schwierig, 
sie genau in das Visier zu be¬ 
kommen und einen Treffer zu 
landen. -Zwar ist die Spielidee 
des STARWARS nicht neu, 
aber die Umsetzung der Idee 
ist in diesem Spiel hervorra¬ 
gend gelöst. Selbst alte Spiel¬ 
hasen werden von dem 
Anforderungsniveau und der 
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PROGRAMME 


Teil 1 


C-16 LISTING + CHECKSUMMEN <0C VI. 0) 

1B PRINT" i CLEAR D0UN2 SP>1CC2 >»«»< SP>ICE >STARW 
ARSt SP^CE >WIRD! SPACE >NACHGELADEN< SPACEZ >***" < X32> 

2B IF PEEK <174)=8 THEN LOAD "STARWARS",8,I <236> 

3B IF PEEK<174)=1 THEN LOAD "STARWARS",1,1 <22> 

40 END <168> 
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00 

00 

00 

00 

00 

00 

00 

3 3 £6 

>3EB0 

00 

00 

00 

00 

00 

00 

00 

00 

3 sEE 

>3EB8 

00 

00 

00 

00 

00 

0 o 

00 

00 

3 3 F6 

>3EC0 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 FE 

>3EC8 

00 

00 

00 

00 

00 

00 

00 

00 

3 306 

>3ED0 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 0E 

>3ED8 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 16 

>3EE0 

00 

00 

00 

00 

00 

00 

00 

00 

3 S IE 

>3EE8 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 26 

>3EF0 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 2E 

>3EF8 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 36 


>3F00 

00 

01 

07 

07 

1 F 

IC 

30 

00 

3 3 05 

>3F08 

40 

D0 

F4 

F4 

3D 

0D 

03 

00 

3 3 67 

>3F10 

00 

00 

00 

00 

00 

00 

01 

00 

3 356 

>3F18 

00 

00 

00 

00 

00 

F0 

F4 

00 

3 3 A3 

>3F20 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 5F 

>3F2B 

00 

00 

00 

00 

00 

C0 

C0 

00 

8 3 27 

>3F30 

00 

00 

00 

00 

00 

00 

00 

00 

3 8 6F 

>3F38 

00 

00 

00 

00 

00 

F0 

F0 

00 

3 3 A7 

>3F40 

00 

00 

00 

0 C 

37 

0C 

00 

00 

3 S0A 

>3F48 

00 

00 

00 

0C 

37 

0C 

00 

00 

3 3 12 

>3F50 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

8 s6B 

>3F58 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 97 

>3F60 

00 

00 

00 

00 

00 

00 

00 

00 

3 s9F 

>3F68 

00 

00 

00 

00 

00 

00 

00 

00 

s IA7 

>3F70 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 AF 

>3F78 

00 

00 

00 

00 

00 

00 

00 

00 

1 sB7 

>3F80 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 BF 

>3F88 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 C7 


>3F90 

00 

00 

00 

00 

00 

00 

00 

00 

3 8 CF 

>3F98 

00 

00 

00 

00 

00 

00 

00 

00 

8 1D7 

>3FA0 

00 

00 

00 

00 

00 

00 

00 

00 

3 3 DF 

>3FA8 

00 

00 

00 

00 

00 

00 

00 

00 

3 bE7 

>3FB0 

07 

07 

07 

07 

07 

07 

07 

B4 

3 3 53 

>3FB8 

FF 

FF 

00 

00 

00 

00 

00 

00 

3 3 F4 

>3FC0 

FF 

FF 

FF 

00 

00 

00 

00 

07 

8 3 31 

>3FC8 

00 

00 

00 

00 

00 

FF 

FF 

FF 

s sF2 

>3FD0 

01 

03 

06 

6 C 

78 

70 

60 

00 

8 3 70 

>3FD8 

00 

00 

00 

00 

00 

31 

30 

02 

8 3 90 

>3FE0 

FF 

00 

00 

00 

30 

30 

31 

30 

8 805 

>3FE8 

02 

FF 

31 

30 

02 

FF 

31 

30 

3 3 55 

>3FF0 

02 

FF 

31 

30 

02 

FF 

GD 

3E 

3 851 

>3FF8 

FF 

4C 

A4 

F2 

F6 

FF 

FC 

FC 

8 3 0E 

>4000 

44 

74 

43 

04 

74 

F3 

23 

43 

8 8 7A 

ENDE 

DES LISTINGS <OVM> 




Klartext-Tabelle 

Für die Commodore Rechner C 64 und C 16 


Auf vielfachen Leserwunsch haben wir uns entschlossen, unser 
Druckverfahren für Commodore-Listings zu ändern. 
Steuerzeichen sowie alle Grafikzeichen werden zukünftig durch 
Klartext ersetzt. Der Ausdruck ist kompatibel zum bisherigen 
Druckverfahren, ein neuer Checksummer ist aus diesem Grund 
nicht erforderlich. 


Eingabehinweise für alle Commodore-Rechner! 

Wer sich schon etwas näher mit Commodore-Rechnern befaßt 
hat, wird sicherlich wissen, daß der Grafiksatz des C 64 sehr viele 
ähnliche Symbole enthält. Aus diesem Grund ist es oft sehr 
schwer, einzelne Zeichen, wie zum Beispiel horizontale Linien, 
voneinander zu unterscheiden. Besonders macht sich dieser 
Nachteil in Listings bemerkbar, welche die Bildschirmgrafik mit 
PRINT-Zeilen aufbauen. 

Bisher haben wir in unseremAusdruck lediglich die Steuerse¬ 
quenzen wie CTRL-RVS ON oder CTRL-BLUE durch Klartext er¬ 
setzt, ab dieser Ausgabe werden jedoch auch alle 
Grafikfikzeichen durch ein Schlüsselcode ersetzt. Durch diese 
Methode sind Verwechselungen praktisch völlig ausgeschlossen. 


Wie arbeitet unser Klartext? 

Wer schon nach dem alten Verfahren Programme eingegeben 
hat, wird sicherlich keine Schwierigkeiten mit der Umstellung 
haben. 


C64 L18TIN6 HIT CHECK8UHHEN (C VI.0» 


10 REH BISHERIGER AUSDRUCK <11S> 

20 PRINT" t POWWP I 1 I» <32> 

30 PRINT—~_| KW» <85» 

40 PRINT" » <*«*> 

SO PRINT-ENDE" <24A> 

ENDE DES LISTINOS 
CDRUCKsF.B.I 


C-64 LIBTIN8 ♦ CHECK3UHHEN <C VI.0» 


10 REH NEUER AUSDRUCK 
20 PRINT" I DOHM4 Sfl £££ a?J * 

30 PRINT" {§4 s* S£ Sfi 5£ S£ Sfi S4 
40 PRINT" «C4 Qä es. £fi ££. ££ €£>” 
80 PRINT-ENDE" 

ENDE DES LISTINGS 


Sl U Sfi>" 


<I42> 

<S2> 

<85> 

<I49> 

<246> 


Wie in diesem Beispiel zu erkennen ist, werden alle Steuerta¬ 
sten durch die entsprechende Tastenbeschreibung markiert. Das 
Wort DOWN steht in diesem Fall für Cursor nach unten. Die Zahl 
dahinter gibt an, wie oft die Taste betätigt werden muß. In 
unserem Beispiel müßte also die Taste CURSOR abwärts vier¬ 
mal betätigt werden. Die genaue Beschreibung, welche Taste 
gemeint ist, entnehmen Sie bitte der Klartext-Tabelle, welche am 
Ende dieser Beschreibung abgedruckt ist. Achtung, für C16 und 
C 64 existieren zwei verschiedene Tabellen! 

Wie ebenfalls aus dem Beispiel zu erkennen ist, werden auch 
alle Grafikzeichen durch einen 2-Buchstaben-Code ersetzt. Der 
erste Buchstabe ist entweder ein »S« oder ein »C«. Das »C« steht 
für die »COMMODORE-TASTE« und das »S« für die »SHIFT- 


Für die neu hinzugekommenden Leser erkläre ich jedoch das Ver¬ 
fahren noch einmal grundlegend. 

Alle sogenannten Sonderzeichen (z.B. eine Farbe) sowie ein Gra¬ 
fikzeichen, werden in unseren LISTINGS durch ein CODEWORT, 
welches die Taste bzw. Tastenkombination kennzeichnet, ersetzt. 
Eine Tabelle der Tastenfunktionen finden Sie in dem Tronic- 
Magazin Compute mit. Das folgende Beispiel zeigt den Unter¬ 
schied zwischen unserem alten und dem neuen Druckverfahren. 


TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Ta¬ 
ste. Das »SA« in unserem Beispiel bedeutet also, daß die Taste 
SHIFT zusammen mit dem Buchstaben »A« betätigt werden muß. 
»C +« würde bedeuten, daß die Taste COMMODORE zusam¬ 
men mit dem PLUS-Zeichen gedrückt wird. Wird direkt hinter die¬ 
ser Buchstabenkombination eine Zahl angeben, so gibt diese die 
Anzahl der jeweiligen Zeichen an. Das Zeichen COMMODORE 
Y wurde also in unserem Beispiel 9mal eingegeben. Durch diese 
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Methode entfällt zukünftig das lästige Abzählen von mehrfachen druckt und auch eingegeben. 

Zeichen. Im ersten Moment hört sich das sicher etwas kompliziert an, ist 

Sollten Sie einmal nicht wissen, welche Taste gemeint ist, so hilft jedoch in der Praxis ganz einfach. Wenn man sich erst einmal 
Ihnen ein Blick in unsere Klartext-Tabelle weiter. an die in Klartext geschriebenen Zeichen gewöhnt hat, wird man 

Um in Listings Tastenbezeichnungen von normalen Zeichen zu den großen Vorteil dieser Schreibweise erkennen, 
unterscheiden, werden alle Tastenbezeichnungen in geschweif- Frank Brall 

ten Klammern gesetzt. Diese dürfen selbstverständlich nicht ein- Noch eine wichtige Anmerkung! 

gegeben werden. Auch Leerzeichen innnerhalb geschweifter Aus technischen Gründen können drei Zeichen von unserem 
Klammern dienen nur zur Trennung einzelner Tastenfunktionen Ausgabegerät nicht verarbeitet werden. Diese Zeichen sind: Pfeil 
und dürfen ebenfalls nicht eingegeben werden. Um die Tasten- nach links, engl. Pfund, Pfeil nach oben. 

funktionen noch besser hervorzuheben, werden diese in unter- _Steht für den Pfeil nach links 

strichener Kursivschrift (Schrägschrift) dargestellt. Alle Zeichen / Steht für das engl. Pfund-Symbol 
außerhalb der geschweiften Klammern werden normal abge- ? Steht für Pfeil nach oben 


Klartaxt-Tabelle für Commodora 64 Klartext-Tabelle für Commodora C 16 und Plus 4 



CURSOR ABWÄRTS 


DOWN 

CURSOR ABWÄRTS 

TASTE NEBEN INST DEL: RECHTS OBEN 

DOWN 

TASTE NEBEN RECHTEN SHIFT 

UP 

CURSOR HINAUF 

3. TASTE NEBEN DOWN VON RECHTS OBEN 

UP 

CURSOR HINAUF 

SHIFT-TASTE & TASTE NEBEN RECHTEM SHIFT 

CLEAR 

CLEAR SCHIRM 

TASTE ÜBER RETURN ZUSAMMEN MIT SHIFT 

CLEAR 

CLEAR SCHIRM 

SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 

INST 

EINFÜGEN 

SHIFT-TASTE & TASTE GANZ RECHTS OBEN 

INST 

EINFÜGEN 

SHIFT-TASTE & TASTE GANZ RECHTS OBEN 

HOME 

CURSOR IN ECKE 

2. TASTE VON GANZ RECHTS OBEN 

HOME 

CURSOR IN ECKE 

2. TASTE VON GANZ RECHTS OBEN 

DEL 

DELETE 

TASTE GANZ RECHTS OBEN 

RIGHT 

CURSOR RECHTS 

TASTE GANZ RECHTS UNTEN 

RIGHT 

CURSOR RECHTS 

4. TASTE VON RECHTS OBEN 

LEFT 

CURSOR LINKS 

SHIFT-TASTE & TASTE UNTEN RECHTS 

LEFT 

CURSOR LINKS 

5. TASTE VON RECHTS OBEN 

SPACE 

LEERZEICHEN 

LEERTASTE (GRÖSSTE TASTE) 

SPACE 

LEERZEICHEN 

LEERTASTE (GRÖSSTE TASTE) 

DEL 

DELETE 

TASTE GANZ RECHTS OBEN 

Fl 

FUNKTIONSTASTE 

FUNKTIONSTASTE Fl (VORHER DEFINIEREN) 

Fl 

FUNKTIONSTASTE 

FUNKTIONSTASTE Fl 

F 2 

FUNKTIONSTASTE 

FUNKTIONSTASTE F2 (VORHER DEFINIEREN) 

F2 

FUNKTIONSTASTE 

FUNKTIONSTASTE F2 

F3 

FUNKTIONSTASTE 

FUNKTIONSTASTE F3 (VORHER DEFINIEREN) 

F3 

FUNKTIONSTASTE 

FUNKTIONSTASTE F3 

F4 

FUNKTIONSTASTE 

FUNKTIONSTASTE F4 (VORHER DEFINIEREN) 

F4 

FUNKTIONSTASTE 

FUN KTIONSTASTE F4 

F5 

FUNKTIONSTASTE 

FUNKTIONSTASTE F5 (VORHER DEFINIEREN) 

F5 

FUNKTIONSTASTE 

FUNKTIONSTASTE F5 

F6 

FUNKTIONSTASTE 

FUNKTIONSTASTE F6 (VORHER DEFINIEREN) 

F6 

FUNKTIONSTASTE 

FUNKTIONSTASTE F6 

F7 

FUNKTIONSTASTE 

FUNKTIONSTASTE F7 (VORHER DEFINIEREN) 

F7 

FUNKTIONSTASTE 

FUNKTIONSTASTE F7 

F8 

FUNKTIONSTASTE 

FUNKTIONSTASTE F8 (VORHER DEFINIEREN) 

F8 

FUNTKIONSTASTE 

FUNKTIONSTASTE F8 

BLACK 

SCHWARZ 

CONTROL-TASTE & 1 

BLACK 

SCHWARZ 

CONTROL-TASTE & 1 

WHITE 

WEISS 

CONTROL-TASTE & 2 

WHITE 

WEISS 

CONTROL-TASTE & 2 

RED 

ROT 

CONTROL-TASTE & 3 

RED 

ROT 

CONTROL-TASTE & 3 

CYAN 

TÜRKIS 

CONTROL-TASTE & 4 

CYAN 

TÜRKIS 

CONTROL-TASTE & 4 

PURPLE 

PURPUR 

CONTROL-TASTE & 5 

PURPLE 

PURPUR 

CONTROL-TASTE & 5 

GREEN 

GRÜN 

CONTROL-TASTE & 6 

GREEN 

GRÜN 

CONTROL-TASTE & 6 

BLUE 

BLAU 

CONTROL-TASTE & 7 

BLUE 

BLAU 

CONTROL-TASTE & 7 

YELLOW 

GELB 

CONTROL-TASTE & 8 

YELLOW 

GELB 

CONTROL-TASTE & 8 

RVSON 

INVERSE EIN 

CONTROL-TASTE & 9 

RVSON 

INVERSE EIN 

CONTROL-TASTE & 9 

RVSOFF 

INVERSE AUS 

CONTROL-TASTE & 0 

RVSOFF 

INVERSE AUS 

CONTROL-TASTE & 0 

ORNG 

ORANGE 

COMMODORE-TASTE » 1 

ORANGE 

ORANGE 

COMMODORE-TASTE & 1 

BRN 

BRAUN 

COMMODORE-TASTE & 2 

BROWN 

BRAUN 

COMMODORE-TASTE & 2 

YLGN 

GELBGRÜN 

COMMODORE-TASTE & 3 

LIG.RED 

HELLROT 

COMMODORE-TASTE & 3 

PINK 

ROSA 

COMMODORE-TASTE * 4 

DGREY 

DUNKELROT 

COMMODORE-TASTE & 4 

BL.GRN 

BLAUGRÜN 

COMMODORE-TASTE & 5 

MGREY 

MITTELGRAU 

COMMODORE-TASTE & 5 

L.BLU 

HELLBLAU 

COMMODORE-TASTE & 6 

LIG.GREEN 

HELLGRÜN 

COMMODORE-TASTE & 6 

D.BLU 

DUNKELGRÜN 

COMMODORE-TASTE & 7 

LIG.BLUE 

HELLBLAU 

COMMODORE-TASTE & 7 

L.GRN 

HELLGRÜN 

COMMODORE-TASTE & 8 

HGREY 

HELLGRAU 

COMMODORE-TASTE & 8 

CTRL... 

CTRL-ZEICHEN 

CONTROL-TASTE UND DAS ...ZEICHEN 

CTRL... 

CTRL-ZEICHEN 

CONTROL-TASTE UND DAS ...ZEICHEN 

S... 

GRAFIKZEICHEN 

SHIFT-TASTE UND DAS ...ZEICHEN 

S... 

GRAFIK-ZEICHEN 

SHIFT-TASTE UND DAS ...ZEICHEN 

c... 

GRAFIKZEICHEN 

COMMODORE-TASTE UND DAS ...ZEICHEN 

C... 

GRAFIK-ZEICHEN 

COMMODORE-ZEICHEN UND DAS ...ZEICHEN 

FLASHON 

BLINKEN EIN 

CONTROL-TASTE UND 

SHIFTSPACE 

UNSICHTBARER CODE 

SHIFT-TASTE UND SPACE 

FLASHOFF 

SHIFTSPACE 

BLINKEN AUS 
UNSICHTBARER CODE 

CONTROL-TASTE UND ” ” 

SHIFT-TASTE UND SPACE 


Haben Sie Fragen 
zu unseren Listings? 

Unsere Programmierer helfen Ihnen gerne weiter! Die HOTLINE ist unser Leserservice. 

Aber bitte wählen Sie nur die angegebene Nummer, und rufen Sie nur in der angegebenen Zeit an. 
Sie erleichtern damit den anderen Abteilungen des Verlages die Arbeit. Vielen Dank! 

HOTLINE O 56 51 - 3 00 13 

montags und freitags von 14-16 Uhr 


Compute mit 








PROGRAMME 

Schriftenzauber 

mit Char-Print Nur für Diskette C 64 


chensatz wird an die Druckrou¬ 
tine angehängt. Dabei finden 
nur die normalen Zeichen, 
nicht die reversen, Verwen¬ 
dung. Senden Sie den ASCII- 
Code für ‘Reverse on‘(18), 
dann werden alle weiteren Zei¬ 
chen unterstrichen. Beendet 
wird die Unterstreichung durch 
‘Reverse off‘(ASCII-Code 146) 
oder einen Zeilenvorschub 
(ASCII: 13 oder 141). Alle son¬ 
stigen Funktionen des Dru¬ 
ckers (Grafikdruck, Breitschrift) 
können nicht angesprochen 
werden. Dafür ist die Druckrou¬ 


Zeilen. Der MPS-801 druckt 
normalerweise Zeichen mit 6 
Punkten in der Breite. Die 
neuen Zeichen brauchen aber 
8 Punkte in der Breite. In einer 
Zeile passen daher nur 60 Zei¬ 
chen nebeneinander. 

Der Druckertreiber arbeitet wie 
folgt: Die zu druckenden Zei¬ 
chen werden in einen Puffer 
zwischen Zeichensatz und 
Druckroutine geschrieben. 
Enthält der Puffer 60 Zeichen 
oder wird ein RETURN gesen¬ 
det, so werden diese Zeichen 
mit Unterlängen ausgedruckt, 


MO MM 



Char-Print erweitert die Mög¬ 
lichkeiten des MPS-801/803: 
Mit Zeichensätzen, die man 
sonst nur auf den Bildschirm 
bekommt, kann gedruckt wer¬ 
den. 

Mit Char-Ripper kann man Zei¬ 
chensätze aus fremden Pro¬ 
grammen übernehmen. Char- 
Basic ermöglicht es Ihnen, ei¬ 
gene Programme mit diesen 
Zeichensätzen auszustatten. 
Mit Char-Print gelangen diese 
Zeichensätze jetzt zu Papier. 
-Ein Druckertreiber wird gene¬ 
riert, der den gewünschten 
Zeichensatz beinhaltet. Ist die¬ 
ser Druckertreiber initialisiert, 
so druckt der MPS-801/803 
(oder kompatibel) ab sofort mit 
den gewünschten Zeichen. 

Ist das Generator-Programm 
Char-Print mit Run gestartet, 
wird zunächst ein 
Maschinensprache-Teil nach¬ 
geladen. Sodann erfolgt die 
Aufforderung, den Filenamen 
des Zeichensatzes, der auf 
dem Papier erscheinen soll, 
einzugeben. Dieser Zeichen¬ 
satz wird nachgeladen, und der 
User muß im nächsten Schritt 
die Startadresse des zu gene¬ 
rierenden Druckertreibers ein¬ 
geben. Genauere Angaben zur 
richtigen Startadresse erfolgen 
im weiteren Verlauf der Be¬ 
schreibung. Im folgenden 
Schritt muß der Filename des 
zu speichernden Druckertrei¬ 
bers eingegeben werden. Nun 
wird die Routine mit dem ge¬ 
wünschten Zeichensatz auf 
Diskette geschrieben. Zum Ab¬ 
schluß erscheint der Befehl, mit 
dem der Druckertreiber initiali¬ 
siert wird (SYS Startadresse). 
Ein Tastendruck beendet das 
Programm (Reset!). 

Der Druckertreiber übernimmt 
folgende Funktionen. Der Zei¬ 


tine mit Zeichensatz aber nur 
1363 Bytes lang (6 Blocks auf 
Diskette). 'RUN/STOP' + 
‘RESTORE’ bewirken eine 
Rückführung zu den Normal¬ 
funktionen des Druckers. Wie 
Sie sicherlich wissen, besteht 
ein Bildschirm-Zeichen aus 8 
Bytes. Diesen 8 Bytes stehen 
allerdings nur sieben Drucker¬ 
nadeln gegenüber, so daß im¬ 
mer zwei Zeilen gedruckt 
werden müssen. Da der Zwi¬ 
schenabstand ausgeschaltet 
wird, passen auf eine Seite 54 


und der Puffer wird freT'tür 
neue Zeichen. Wenn der Zwi¬ 
schenpuffer leer ist, wird mit 
RETURN ein Zeilenvorschub 
erzeugt. 

Der Funktionsbeschreibung 
folgt nun eine Erklärung zur 
Startadresse der Druckroutine. 
Wollen sie nur Basic- 
Programme ausdrucken, ge¬ 
nügt als Start 49152. Eine ein¬ 
fache Methode, um Texte 
auszudrucken, ist folgende: 
Getrennt vom Textprogramm 
läßt man den Text Byte für Byte 


von Disk lesen und zum Dru¬ 
cker senden. Vorher muß na¬ 
türlich die Druckroutine 
initialisiert werden. Als Starta¬ 
dresse sollte auch in diesem 
Fall 49152 gewählt werden. 
Das Programm “Files 
drucken” veranschaulicht 
beispielhaft dieses Vorgehen. 
Wollen Sie den Druckertreiber 
in ein Textprogramm einbauen, 
benötigen Sie einen freien 
Speicherbereich für die 1363 
Bytes lange Druckroutine. Gibt 
Ihnen das Handbuch über das 
WIE keinerlei Auskunft, helfen 
Ihnen bei der Suche die Tools 
"Fill” und ”Ram-List”. Laden 
und Starten Sie ‘Fill’. Nun ge¬ 
ben Sie einen Wert zwischen 0 
und 255 ein. Die Eingabe be¬ 
legt den Speicher ab 2049. La¬ 
den Sie Ihr Textprogramm, und 
lösen Sie einen Reset aus. Nun 
müssen Sie über Monitor einen 
freien Speicherbereich finden. 
Der einfachste Weg führt über 
eine ‘Dump'-Funktion. Eine 
solche Funktion gibt den Inhalt 
des Speichers aus. Achten Sie 
darauf, in welchem Bereich der 
unter “Fill” angegebene Wert 
gefunden wird. Sollte Ihnen ge¬ 
rade kein Monitor zur Verfü¬ 
gung stehen, können Sie das 
Programm “Ram-List” benut¬ 
zen. Es wird mit LOAD Ram- 
List 1 ,8 geladen und mit RUN in¬ 
itialisiert. Nach der Eingabe 
von SYS828,x listet es den 
Speicherbereich ab der 
Adresse x aüf. Die Leertaste 
hält den Listvorgang an. Ach¬ 
ten Sie auch hier wieder auf 
Speicherbereiche, die den 
Wert enthalten, mit dem Sie 
vorher den Speicher gefüllt ha¬ 
ben. Wenn Sie einen geeigne¬ 
ten, mindestens 1363 Bytes 
langen Speicherbereich gefun¬ 
den haben, steht dem Einbau 
des Druckertreibers nichts 
mehr im Wege: Er darf aller- 
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dings weder im Bereich 0 -2047 
(-0000 - -07ff) noch im Be¬ 
reich 53248 - 65535 (-dOOO 
— ffff) liegen. Normalerweise 
darf er auch nicht im Bereich 
40960 -53247 (-aOOO - - bfff) 
stehen, da in diesem Sektor 
das Basic-Rom liegt. Es könnte 
aber sein, daß Ihr Textpro¬ 
gramm diesen Bereich auf 
Ram umschaltet. Zur Not kön¬ 
nen Sie den Druckertreiber 
auch in den oberen Bereich 
des Textspeichers legen. Diese 
Möglichkeit setzt die Bedin¬ 
gung, daß Sie aus Ihrem 
Textprogramm heraus in den 
Direktmodus gelangen können, 
um den Druckertreiber zu la¬ 
den und zu initialisieren. Eine 
weitere Möglichkeit ergibt sich, 
wenn Ihr Textverarbei¬ 
tungsprogramm den Textspei¬ 
cher nicht löscht. Wie auch 
immer, probieren Sie es aus! 
Benutzen Sie z.B. das Pro¬ 
gramm "StarTexter (Version 
4.0)”, so können sie als Starta¬ 
dresse 37635 eingeben. Der 
Druckertreiber wird dann in 
den Bereich gelegt, der zum 
Programmieren reserviert ist. 
Zwar benutzt StarTexter einen 
Teil des Programmierbereichs, 
so daß die letzten 64 Bytes des 
Druckertreibers gelöscht wer¬ 
den. Dies ist aber nur von 
untergeordneter Bedeutung, 
da nur die letzten neun Zeichen 
des Zeichensatzes im Drucker¬ 
treiber gelöscht werden. 

Zum Aufbau! Char-Print be¬ 
steht aus zwei Programmteilen: 
ein Basic- und ein Assembler¬ 
programm. 

Das Basic-Programm "Char- 
Print" übernimmt die Benutzer¬ 
führung und paßt den Drucker¬ 
treiber an die Startadresse an. 
Der Assemblerteil, der in Data- 
zeilen an das Basic-Programm 
angehängt ist, enthält eine 
neue Input-Routine, die keine 
Farbumschaltung zuläßt und 
die Cursor-Bewegung be¬ 
grenzt. Sogar das Bildsschirm¬ 
löschen wird verhindert. Auf 
unkomplizierte Weise, nämlich 
über einen Vektor, der von der 
Interrupt-Routine angesprun¬ 
gen wird (- 028f /u0290). Na¬ 
türlich enthält das Assembler¬ 
programm auch den Drucker¬ 


treiber. Dieser wurde so pro¬ 
grammiert, daß keine 
Zeropage-Adressen belegt 
werden. Hier wurde die Mög¬ 
lichkeit der Selbstmodifikation 
angewandt. Das Programm 
verbiegt den CHROUT- 
Vektor auf die neue Druckrou¬ 
tine. Sie prüft, ob ein auszuge¬ 
bendes Zeichen an den 
Drucker abgeschickt werden 
soll. Verläuft diese Prüfung ne¬ 
gativ, so wird das Zeichen 
normal über die CHROUT- 
Routine ausgegeben. -Ein Blick 
auf den Quelltext lohnt sich, 
vielleicht auch, um einen wei¬ 
teren Druckertreiber zu pro¬ 
grammieren. "CHAR-Print" 
kann als normales Basic- 
Programm abgetippt werden. 
Damit das Nachladen funktio¬ 
niert, sollten Sie das Programm 
mit dem Namen "CHAR-Print" 
abspeichern! 

Daten des Druckertreibers 
Länge des 

Druckertreibers : 1363 Bytes 
(mit Zeichensatz) 

Zeichen pro Zeile : 60 
Zeilen Pro Seite : 54 
Unterstreichung an : CHR- (!() 
Unterstreichung aus 
CHR-(!-&) 


Weiter geht’s mit 
CHAR-BASIC 


Der Char-Ripper ermöglicht es 
Ihnen, Zeichensätze aus frem¬ 
den Programmen zu rauben. 
Es stellt sich die Frage, wie 
diese Möglichkeit genutzt wer¬ 
den kann. Vielleicht möchten 
Sie die Zeichensätze in eigene 
Programme einbinden, oder 
Sie möchten sie im Direktmo¬ 
dus lesen. Hier bietet Char- 
Systems ein weiteres Tool. 
Mit Char-Basic wird ein Zei¬ 
chensatz zusammen mit einer 
Initialisierungsroutine auf eine 
Diskette geschrieben. Diese 
Routine kopiert den Zeichen¬ 
satz und schaltet ihn ein. Die 
Startadresse dieser Routine 
mit Zeichensatz können Sie frei 
nach Ihren Wünschen wählen. 
Dabei müssen Sie sich zwi¬ 


schen sechs Speicherberei¬ 
chen entscheiden. 

Vor der Nutzung dieses Pro¬ 
gramms müssen Sie zunächst 
das Generatorprogramm 
"CHARR-BASIC/GEN” eintip¬ 
pen. Nachdem Sie das Pro¬ 
gramm abgespeichert und 
gestartet haben, wird das ei¬ 
gentliche Programm "CHAR- 
BASIC” auf Diskette gespei¬ 
chert. Dieses Programm kann 
über das ’CHAR-MENUE’ ge¬ 
laden und gespeichert werden. 
Wollen Sie es ohne das Menue 
laden, so können Sie Char- 
Basic auch direkt laden (,8,1) 
und mit SYS 49152 starten. 
Nach dem Starten erscheinen 
auf dem Bildschirm sechs aus¬ 
gewählte Speicherplätze, in 
denen die Initialisierungsrou¬ 
tine Ihren Zeichensatz spei¬ 
chert. Neben der Bezeichnung 
des Speicherbereichs er¬ 
scheint die genaue Adresse 
von Zeichensatz und 
Bildschirmspeicher. Die Vor¬ 
auswahl der Bereiche wurde so 
getroffen, daß der Zeichensatz 
in alle vier Bänke des VIC ge¬ 
legt werden kann. 

Bei der dritten, fünften und 
sechsten Speichermöglichkeit 
liegt der Zeichensatz unter ei¬ 
nem ROM-Bereich und der 
Bildschirmspeicher im Ram- 
Bereich. Dies ist leider nicht zu 
umgehen. 

Zunächst werden Sie zur Ein¬ 
gabe des Namens aufgefor¬ 
dert, der den zu bearbeitenden 
Zeichensatz bezeichnet. Im 
nächsten Schritt müssen Sie 
sich für einen der möglichen 
Speicherplätze entscheiden. 
Nachdem Sie sich für einen der 
Speicherbereiche entschieden 
haben, können Sie die Starta¬ 
dresse des Generators 
(Zeichensatz und Initialisie¬ 
rungsroutine) verändern. Über 
die Tasten ” + ” und kann 
die angezeigte Adresse um +1 
bzw. -1 verändert werden. Über 
die Kombination dieser Tasten 
mit Shift wird das High-Byte der 
Adresse verändert, d.h. um 256 
Bytes erhöht bzw. vermindert. 
Achten Sie bei einer Änderung 
der Adresse darauf, daß diese 
nicht im Speicherbereich des 
Zeichensatzes liegt. -Die Initia¬ 


lisierungsroutine würde sich in 
einem solchen Fall selbst über¬ 
schreiben. Die Adressierung ist 
weniger kompliziert, als es im 
ersten Moment erscheinen 
mag. Lassen Sie sich dadurch 
nicht abschrecken, eigene 
Versuche zu starten! 

Sobald Sie sich für eine 
Adresse entschieden haben, 
drücken Sie RETURN. 

Zum Abschluß erfolgt die Ein¬ 
gabe des Filenamen zum Ab¬ 
speichern des Generators, und 
der Generator kann auf Dis¬ 
kette abgespeichert werden. 
Wenn Sie keinen weiteren Zei¬ 
chensatz bearbeiten wollen, 
können Sie das Programm mit 
dem RESET-Knopf oder auch 
mit der Kombination RUN/ 
STOP und RESTORE be¬ 
enden. 

Den gespeicherten Generator 
können Sie nun unabhängig 
vom CHAR-Menue laden und 
starten. Zum Starten verwen¬ 
den Sie die Startadrresse des 
Generators, die Sie in CHAR- 
Basic mit den Tasten ” + ” und 
festgelegt haben. Bei einer 
Startadresse von 49152 lautet 
der Startbefehl SYS 49152. 
Wenn Sie keine Fehler ge¬ 
macht haben, können Sie nach 
dem Starten Ihren Zeichensatz 
auf dem Bildschirm betrachten. 
Soll der Generator in eigene 
Basicprogramme eingebunden 
werden, empfiehlt es sich, fol¬ 
gende Zeilen vor das Basic- 
programm zu setzen: 

0 A = A + 1:IF A = 1 THEN 
LOAD'Filename' , 8 , 1 
1 SYS STARTADRESSE 

Wer seinen Zeichensatz im Di¬ 
rektmodus mit Basicprogram- 
men benutzen möchte, sollte 
als Zeichensatzspeicher die 
Möglichkeit eins wählen und 
als Generatoradresse den Wert 
49152. 

Um den Basicstart hochzuset¬ 
zen, muß folgende Basiczeile 
eingegeben werden. 

POKE 44,16:FOR I =4096 TO 
4099:POKE l,0:NEXT 

(Holger Stöter) 
(Bodo van Rüschen) 
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SOFTWARE-SERVICE 


Zeitschriften und Programme von 1987/88 


Heft 1/87 


Commodore 

Bestell-Nr. COM CK 1/3 18,- DM 

Bestell-Nr. COM CD 1/3 20,- DM 

Torch (VC 20), Bomberman (VC 20), 
Note Screen (C 16/116), Champ (C 
16/116), Checksummer (C 16/116), 
Checksummer (C 64), Pyramid (C 
16/116),Turbo-Disc(C64), IRQ-Routine 
(C 64), Rylan(C 64), Ice Racing (C 64) 


firhrwiriAr 

Best-Nr. COM SK 1/3 16,- DM 

Best-Nr. COM SD 1/3 23,- DM 

Electric Gladiators, Bildschirmtoolbox, 
Suprabasic, Spritegenerator, Mad- 
goon's Race, Star Trek, Checksummer 


Heft 2/87 


Commodore 

Bestell-Nr. COM CK 2/3 16,- DM 

Bestell-Nr. COM CD 2/3 20,- DM 

Quest of Tires (VC 20), Cave Fighters 
(VC 20), Mc Stoney in the Caves (C 
16/116),Cube (C 16/116), Hostage (C 
16/116). Adress 16 (plus 4), Easy Basic 
(C 64), Ski-Jumping (C 64), Job-Race (C 
64) 

QrhnAiHor 

Bestell-Nr. COM SK 2/3 16,- DM 

Bestell-Nr. COM SD 2/3 23,- DM 

The Hero, Smash N, 16 RSX Befehle, 
Disk Star 2.1 


Heft 3/87 Heftnummer mit angeben 
Commodore 

Bestell-Nr. COM CK 3/3 16,- DM 

Bestell-Nr. COM CD 3/3 20,- DM 

Action Ball (VC 20), Star Attack (VC 29), 
Der neue Checksummer (C 16/116), 
Bobdriving (C 16/116), Find-Utility (C 
16/116), Mac Coin (C 16/116), SWAP- 
Utility (C 16/116), Druckerroutine (C 
16/116/plus 4), Appleman (C 16/116 m. 
64 K), Trampolin Games (C 64), Check¬ 
summer (C 64), Mission Code (C 64), 
Sprite Tool (C 64) 

Schneider 

Bestell-Nr. COM SK 3/3 16,- DM 

Bestell-Nr. COM SD 3/3 23,- DM 

Boing Boing, Colors, Druckerprotokoll, 
Checksummer, Aurion 2 


Heft 4/87 


Commodore 

Bestell-Nr. COM CK 4/3 16,- DM 

Bestell-Nr. COM CD 4/3 20,- DM 

Moth (VC 20), Jeeper (VC 20), Monitor 
(VC 20), Elfmeterschießen (C16/116/ 
ptus 4), Super-Q-Bert (C 16/116/plus 4), 
Froggy (C 16/116/plus 4), Memory 
Dump (C 16/116/plus 4). Ram-Disc- 
Monitor (C 64), Run Version Generator 
(C 64), Startrip (C 64), Immigration (C 
64) 

Schneider 

Bestell-Nr. COM SK 4/3 16,- DM 

Bestell-Nr. COM SD 4/3 23,- DM 

Find (464), Tape Backup System (464), 
Die schwarzen Diamanten (464, 664, 
6128), 3-D-Pac Man (464, 664, 6128) 


Heft 5/87 


Commodore 

Bestell-Nr. COM CK 5/3 16,- DM 

Bestell-Nr. COM CD 5/3 20,- DM 

Traffic Memory (VC 20), Shooter (VC 
20), Neuer Input (CI 6/116/plus 4), 
Superlist (C 16/116/plus 4), Marble (C 
16/116/plus 4-64 K), Character- 

Generator (C 16/116/plus 4), Quadrato 
(C 64), FCMON Teil 2 (C 64), Minas 
Gurtdur (c 64), Festspeicher (C 64) 


Srhnpiriar 

Bestell-Nr. COM SK 5/3 16,- DM 

Bestell-Nr. COM SD 5/3 23,- DM 

Omeganea, Screen Dump, Double 
Trouble 


Heft 6/87 


Commodore 

Bestell-Nr. COM CK 6/3 16,- DM 

Bestell-Nr. COM CD 6/3 20,- DM 

Mountain Jack (VC 20), REM- 
Zeileninvertierer (VC 20), Recovery (C 
16/116/plus 4), Airwolf (C 16), Turtle 
Grafik (C16/116/plus 4-64 K), Super 16 
(C 16/116/plus 4-64 K), Checksummer 
(C 64), Duell 2005 (C 64), DCMON Teil 
3 (C 64), Town Rescue (C 64) 

fVhnAi/ior 

Bestell-Nr. COM SK 6/3 16,- DM 

Bestell-Nr. COM SD 6/3 23,- DM 

Break out, Luna 9 (464), Autobak (464), 
Checksummer 


Heft 7/87 


Commodore 

Bestell-Nr. COM CK 7/3 16,- DM 

Bestell-Nr. COM CD 7/3 20,- DM 

Bomb Scare (VC 20 + 8 K), Elxanor (VC 
20), Checksummer (C 16), Checksum¬ 
mer (C 16-MC), Fight in the Dessert (C 
16), Tom and the Apple Farm (C 
16/116/plus 4), Toolbox (C 16), Defense 
(C 16), Tapecopy (C 16), Autostarter (C 
16), Monitorschutz (C 16), Nibbler (C 
64), Window (C 64), Psion 3 (C 64), 
Hungry Hoodelum (C 64) 

Schneider 

Bestell-Nr. COM SK 7/3 16,- DM 

Bestell-Nr. COM SD 7/3 23,- DM 

Grenad 2.0(464/664/6128), Mini Break¬ 
out (464/664/6128), Firmjump (464), 
Nightforce (464) 


Heft 8/87 


Commodore 

Bestell-Nr. COM CK 8/3 16,- DM 

Bestell-Nr. COM CD 8/3 20,- DM 

ZS-GEN (VC 20 + 3 K), BATMAN 
(VC 20), Checksummer (MC, C 16), 
Turbo-Tape (C 16), Gosub mit Labels 
(C 16/116/+ 4), Admiral (C 16 + 64 K), 
ZS-GEN (C 64), RAID (C 64), Zauber¬ 
wald (C 64) 

QrhnAi/ior 

Bestell-Nr. COM SK 8/3 16,- DM 

Bestell-Nr. COM SD 8/3 23,- DM 

Diskmonitor (464), Orgel-Champ 
(464/664/6128), Buffalo Bill (464), Bliz¬ 
zard (464/664/6128) 


Heft 9/87 


Commodore 

Bestell-Nr. COM CK 9/3 16,- DM 

Bestell-Nr. COM CD 9/3 20,- DM 

Tauziehen (VC 20), Handwerker (VC 20 
+ 3 K), Plus Basic (C 16/116), 
Invert 16 (C 16/116/+4), JMP (C 16/116/ 
+ 4), MC-Checksummer (C 16), Bildma¬ 
ker (C 64), Fünf Wochen im Ballon (C 
64) 


Schneider 

Bestell-Nr. COM SK 9/3 16,- DM 

Bestell-Nr. COM SD 9/3 23,- DM 

P.P.S. (446/664/6128), Prostar (464) 


Heft 10/87 


Commodore 

Bestell-Nr. COM CK 10/3 16,- DM 

Bestell-Nr. COM CD 10/3 20,- DM 

Fragezeichen (VC 20 + 3 K), MC- 
Checksummer (C 16), Games Basic (C 
16/116/plus 4), Ausweichmanöver (C 
16/116/plus 4), Eierlaufen (C 

16/116/plus 4), Good Shot (C 

16/116/plus 4), Checksummer (C 64), 
Laufschrift (C 64), Floppy-Monitor (C 64), 
Blaster (C 64) 

Schneider 

Bestell-Nr. COM SK 10/3 16,- DM 

Bestell-Nr. COM SD 10/3 23,- DM 

Turbo-Sprites (464/664/6128), Star 
Treck (464/664/6128), X-Race (464), 
Amsbreak (464/664/6128), Screens 
(464), Create (464) 

Heft 11/87 


Commodore 

Bestell-Nr. COM CK 11/3 16,-DM 

Bestell-Nr. COM CD 11/3 20,- DM 

Wormy (VC 20), Kursiv-Creater (C 16), 
MC-Checksummer (C 16), Creature 
Castle (C 16/116/plus 4), Alfred (C 
16/116/plus 4), Checksummer (C 16), 
Time 64 (C 64), Last Mission (C 64), Vier 
in einer Reihe (C 64) 


firhnAi/ipr 

Bestell-Nr. COM SK 11/3 16,- DM 

Bestell-Nr. COM SD 11/3 23,- DM 

Texter (464/664/6128), Burning Wheels 
(464/664/6128), Syrtdrome’s Message 
(464/664/6128), Quadrato (464/664/ 
6128), Checksummer (CPC) 


Heft 12/87 


Commodore 

Bestell-Nr. COM CK 12/3 16,- DM 

Bestell-Nr. COM CD 12/3 20,- DM 

Alien Attack (VC 20), Super-Senso (VC 
20 + 3 K), MC-Checksummer (C 16), 
Egon (C 16), Hunter (C 16), Basic- 
Bequem (C 16), Checksummer (C 64), 
Burgenstürmer (C 64), Malibu (C 64) 


Schneider 

Bestell-Nr. COM SK 12/3 16,- DM 

Bestell-Nr. COM SD 12/3 23,- DM 

GENAD 2.1 (464/664/6128), Multimode 
(464), Master Mission (464/664/6128), 
Fireball (464/664/6128) 


Heft 1/88 


Commodore 

Bestell-Nr. COM CK 1/4 16,- DM 

Bestell-Nr. COM CD 1/4 20,- DM 

Kupka-Kola (VC 20) Pac (VC 20 + 8 K), 
Checksummer (C 16), MC- 
Checksummer (C 16), Append (C 
16/116/+4), 15’er Puzzle (C 16/116/ 
+4), Invasion (C 16/116/ + 4), Quadris 
(C 16/116/+ 4), Directory-Help (C 64), 
Auto-Start (C 64), Push II (C 64), Check¬ 
summer (C 64), Jac the Pac (C 64), 
Mission Germany (C 64) 

ArhnAiHpr 

Bestell-Nr. COM SK 1/4 16,- DM 

Bestell-Nr. COM SD 1/4 23,- DM 

Symbol Poker (464/664/6128), Hexkey 
(464/664/6128), Print Pictures(464/ 
664/6128), Windfall (464) 


Heft 2/88 


Commodore 

Bestell-Nr. COM CK 2/4 16,- DM 

Bestell-Nr. COM CD 2/4 20,- DM 

Fred the Snake (VC 20 + 3 K), DIN A 4 
Hardcopy (plus 4), Reversa (C 16), 
Space Fly (C 16 + 32 K/plus 4), Sputnic 
Game (C 64), Smash (C 64) 


Or>h najWpr 

Bestell-Nr. COM SK 2/4 16,- DM 

Bestell-Nr. COM SD 2/4 23,- DM 

Asteroids (464/664/6128) 


Heft 3/88 


Commodore 

Bestell-Nr. COM CK 3/4 16,- DM 

Bestell-Nr. COM CD 3/4 20,- DM 

Pixel-Grafik (VC 20), Pooyan (VC 20), 
Grafiklupe (C 16/116/plus 4), Farbta- 
stenbelegung (C 16/116/plus 4), Firelab 
(C 16/116/plus 4), MC-Checksummer (C 
16), C 64-Checksummer, Multitoolbox 
(C 64), Kursiv-Creater (C 64), Copter- 
Duell (C 64), Mad Mission (C 64). Drei 
Drachentöter (C 64) 


Srhnpirtar 

Bestell-Nr. COM SK 3/4 16,- DM 

Bestell-Nr. COM SD 3/4 23,- DM 

Filemanager (464), Light-Gunner 
(464/664/6128) 


Heft 4/88 


Commodore 

Bestell-Nr. COM CK 4/4 16,- DM 

Bestell-Nr. COM CD 4/4 20,- DM 

Char-Befehl (C 16/116/plus 4), Check¬ 
summer (C 16), MC-Checksummer (C 
16), Scorehunt (C 16/116/plus 4), 
Char-Menü (C 64), Sky-Fighter (C 64), 
Scoit (C 64) 


fVhnpidAr 

Bestell-Nr. COM SK 4/4 16,- DM 

Bestell-Nr. COM SD 4/4 23,- DM 

Laufschrift (464/664/6128), Tron Tor¬ 
nado (464/664/6128), Checksummer 
(CPC) 


Aus diesem Heft 


Commodore Kassette COM CK 5/4 16,-- DM Schneider Kassette COM SK 5/4 16,- DM 
Diskette COM CD 5/4 20,- DM Diskette COM SD 5/4 23,- DM 
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Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


Homecomputer-System 


Straße/Nr. 


PLZ Ort 


Telefon Vorwahl/Rufnummer 


Antwortkarte 


Bitte mit der 
jeweils gültigen 
Postkartengebühr 
frei machen 


Tronic-Verlag GmbH 

ABO-Service 
Postfach 870 

D-3440 Eschwege 





Kombi-Abo »Compute mit« 


Abrufkarte 



Name/Vorname 

Straße/Nr. 

PLZ/Ort 

Ich wünsche folgendes ABO: 

i 12 Exemplare »Compute mit...« 

+ 12 bespielte Kassetten 

zum Preis von 

129,50 DM (Ausland 142,50 DM) 

J] Commodore 

| Schneider 

J 12 Exemplare »Compute mit...« 

+ 12 bespielte Disketten 

zum Preis von 149,50 DM (Commodore) 199,50 DM (Schneider) 

_] Commodore 

JJ Schneider 

J 12 Exemplare »Compute mit...« 

ohne bespielte Kassetten 

zum Preis von 
gegen 

LJ Rechnung O Vorkasse 

42,- DM (Ausland 52,- DM) 

Datum, Unterschrift 

LJ Bargeldlos durch Bankeinzug: 


Bankleitzahl 

Geldinstitut 

Konto-Nr. 

Abonnement-Kündigungen: 

6 Wochen vor Ablauf des Jahresabonnements. Bei nicht fristgerecht eingegangenen Kündigungen wird das bestehende 
Abonnement um ein weiteres Jahr verlängert. Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag 
widerrufen! Zur Wahrung der Frist genügt die rechtzeitige Absendung des Widerrufes. 

(Bei Minderjährigen ist die Unterschrift eines Erziehungsberechtigten erforderlich.) 

Abo-Beginn ab Heft: 

Datum, Unterschrift 





Auftrag für Gelegenheitsanzeigen in »Compute mit...« 


An 

»Compute mit...« 
Tronic-Verlag 
Postfach 
3440 Eschwege 

Unter der Rubrik »Kleinanzeigen¬ 
veröffentlichen wir Gelegenheits¬ 
anzeigen für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon¬ 
taktaufnahme bzw. Erfahrungs¬ 
austausch usw. 

Unser Preis für »Kleinanzeigen«: 
Private Kleinanzeigen 

bis 5 Zeilen nur 5,- DM 

bis 10 Zeilen nur 10,- DM 

Gewerbliche Gelegenheitsanzeige 

je Zeile 8,- DM + gesetzt Mwst. 
(dürfen nicht unter Chiffre erschei¬ 
nen) 

Eine Veröffentlichung privater 
Kleinanzeigen erfolgt nur gegen 
Vorkasse! 

Kleinanzeigen jetzt 
noch preiswerter 


Name und Adresse 


Unterschrift Datum 


5 ,- 


10 ,- 

Zutreffendes ankreuzen 

0 Biete Hardware 0 biete Software c suche o Kontakte 0 Versch. 


Ich wünsche folgenden Text zu veröffentlichen: 


I I I I I I 






Absender 

(Bitte deutlich schreiben) 

Vorname/Name 

Homecomputer-System 

Straße/Nr. 

PLZ Cfri 

Telefon Vorwahl/Rufnummer 


Antwortkarte 


Tronic-Verlag GmbH 

»Compute mit« 
Postfach 870 

D-3440 Eschwege 






SOFTWARE-SERVICE 


Neu: Superpqkete zum Superpreis! 



Superpaket 1 
Spiele 


Monster Attack, Projekt, High Noon, Brieftaube, 
Cadilon, Turbo Jet, Sea Attack, The Maze 
Graze Game, Galaxi, Space Comets, Sheet, 
Vampir, Memory 


SP-C-K-1 

SP-C-D-1 


Kassette 20, - 
Diskette 20, - 


Superpaket 2 
Spiele 


Tank Duell, Astronaut, Jungle 1, Jungle 2, Sufo, 
Fire-Legion, Spiders, Star Battle, Super 
Breakout, Mission Rescue, Roadpainter, 
Moonsweeper, Scotti 


SP-C-K-2 

SP-C-D-2 


Kassette 20, - 
Oiekette 20, - 


Superpaket 3 
Anwender 


The Basic, Basicreset, Data-Generator, Print- 
Generator, Supermon-64, Restore N, Disky 10, 
Fill-Loader, Funktionstasten-Belegung, Autostart, 
Multibasic, Bildeditor, Spritehilfe + Demo, 
Autonumber, Micro-Tools + Mioader 


SP-C-K-3 

SP-C-D-3 



Schneider 




Superpaket 1 


Horror Castle, Fantasy County, Senso, Jumping 
Joe, Schatztaucher, Shaolin, City Runner 


SP-O-K-1 

SP-O-D-1 


Kassette 20, - 
Diskette 20, - 


Superpaket 2 

Genesis-Super-Assembler 
für C*16/116&plus4 

Komplett mit Anleitung 


SP-O-K-2 

SP-O-D-2 


Kassette 15,- 
Dlskette 15, - 


Preis BesteH-Nr. 
Kass./Disk. 


Goldrausch/ 

Moon Fighter 

FroggerlNumor 

Cosmlc Terror/ 

Schwlmmen/Break In 

PenlefPliantoml 

Meteorstenn 

Flower/Hyperspaee 


10,-/10,- 

033 

10.-/10,- 

043 

14,-114,- 

OS3 

14.-/14,- 

033 

10, —113,- 

O 14 

10.-/13,- 

024 

1B.-/13,- 

034 

13,-/13,- 

044 

1B.-/1B,- 

034 

1B.-/1B,- 

034 



Save our Turtles 
MemoryIQuadrato 
Crazy Worm/Assauit 
Tron/Tlme RaHyf 
Ooldfleber 
Feuerwehr/Q-Bert 




Superpaket 1 

Flowers, Tanker, Jupiter Rescue, Einbrecher, 
Hospital, Alien, Flipperball, Sub-Zone, Dr. Cerp, 
Geo-Zayxon, Froggies Night Mare, Punkte¬ 
fresser, Starwars, Salavage Crew 


nur Kassette 20, - 


Programm 

BrOckenbaufJango 
Miner, der Fas s aden 
strelcherflnkaschatx 
Bergs hootlng/ 

Bobby In Actton 
Josef In don 
Katakomben 
Hot Food/ 


Soundprogramm 
Castlo Draculaf 
UFO-Dostroyer 
Cava Rider/ 
Cosmlc Bouncer 
Biathlon/ 

Space Laboratory 
Titan 

Raco Driver 

Saigon 

Coconuts 


Anleitungen zu unseren Programmen erhalten Sie aus un¬ 
seren Heften. Bei ausverkauften Heften erhalten Sie zum 
Heftpreis Fotokopien der Spielbeschreibungen. 

Hefte ohne Software nur gegen Vorkasse! 


Superpaket 1 
Spiele 


Alien Hunter, Catch, Interceptor 3 D, City 
Lander, Conan's Castle, Copter Patrool, CPC 
Bert, Crash, Demon Attack, Duell, Etis, Labyrint, 
Miner, Tower, Snider’s Maze, Geister SchloB, 
Fallschirmspringer, Secret Valley, Aladin, 
Hounted Castle, Cave runner, Cobra, Erwin, 
Kruemi, Q-Bert 


SP-SR-K-1 

SP-SR-D-1 


Kassette 20, - 
Diskette 27,- 


Superpaket 2 
Anwender 

Back up, Data gen, Datenverwaltung, Discopy, 
Monitor, Painter, Remkiller, SU-File, 
Tastaturbelegung 


SP-SR-K-2 

SP-SR-D-2 


Kassette 20, - 
Diskette 27,- 



Der Tronic-Verlag bietet Spitzen¬ 
software für jedermann. 

Überzeugen Sie sich von unseren 
Angeboten, und bestellen Sie 
noch heute. Alle Bestellungen 
werden innerhalb nur 

1 Woche* 

nach Eingang bearbeitet. 
Telefonische Bestellungen unter 
der Rufnummer 

05651/30011 
bis 19.00 Uhr 

* ohne Postweg! 
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PROGRAMME 


Char-Print 


C—64 LISTING + CHECKSUMMEN <C VI.B> 


90 PRINT u I C LE AR DOUtO BITTECSP4C£> MARTEN, { SP, 
4CEJMC-TEILCSP4C£>WIRD£SP4CE>GELESEN! M 
100 FORI“491S2TO49S60IREADW:S=S+W:POKEI,MiNE 
XT 

110 IFS< >51321THENPRINT"DATA—FEHLER!" « END 
120 : 

130 REM //// TITEL //// 

140 : 

150 FORX«1TO40« X*=X*+"CS«>"« Y*»Y*+" I SPACE y "i 
NEXT 

160 POKE53280,11:P0KE53281.15 

170 PRINT" I CLEAR DOUH DGREY i "SPC<11> "CC SPACE 

>H<SP4C£>A£SP4C£>R£SP4C4r>-£SP4C£>P£SP4C£>RC£ 

PACE i I C SPACE iN{ SPACE y T C P OUH )» 

180 PRINTSPC(7)“<C> I SPACE i 1987CSPAC£>B0D0££P 
4CE>VANC SP/ICf >RUESCHENC POHW > " 

190 PRINTTAB(6)»CC4J"LEFT*<X*,26>"C£S>"IPRIN 
TTAB <6>"CS—>CHAR—PRINT C SP4CC2 TGENERIERT { SPAC 
£>FUERCS^J" 

200 PRINTTAB (6) *' CS->DENC SP4CE >MPS-801 /MPS-B8 
3C SP4CC2 >ElNENCS->" 

210 PRINTTAB<6>"£S^>DRUCKERTREIBER,C SP/ICC2 1D 
ERC SP4C£3 >MITCS->" 

220 PRINTTAB<6)“CS->ZEICHENSAETZENC SP4Cf >DRU 
CKT.C SP/1CO DIECS-I“ 

230 PRINTTAB(6)"CS->Z.B.C SPACE2 y AUSC SPACE y SP 
IELEN C SPACE2 y STAMMEN CS->" 

240 PRINTTAB(6)"CS^JKOENNEN. C SPACE2 y SOLCHE CS 
PACE2 y ZEICHEN—CS—>" 

250 PRINTTAB (6) 11 CS->SAETZEC SP4CC >KANNC SP4CE2 
IMANC SP4CE2 >MITC SP/ICC2 >DEMCS->“ 

260 PRINTTAB(6)"CS-JPROGRAMMC SP4CE > CHAR-RIP 
PER • {. SPACE y AB- CS^J " 

270 PRINTTAB(6)“CS^JSPEICHERN.“SPC(16>"CS^J" 
2B0 PRINTTAB(6)“CS^>'CHAR-ROM' { SPACE2 y SPEICH 
ERT C SPACE2 y DEN CSrJ" 

290 PRINTTAB<6)“CS-10RI8INALC SP4CE 1ZEICHENSA 
TZC SP4CO AB. I SPACE2 S^> "«PRINTTAB<6) "£C£>"LE 
FT*CX*,26>"CCX>“ 

300 : 

310 REM //// ZEICHENSATZ LADEN //// 

320 : 

330 T*-“F1LENAM£C SP4CE >DESC SPAC£ >ZEICHENBATZ 
ES?":GOSUB660 

340 0PEN1,8,0,14«P0KE7B1,1«SYS6547B«GETZ4,Z* 

« Z»49621 

350 IFSTTHENSYS65484:CLOSEI:GOSUB730«GOTO330 

360 GETZ4«POKEZ,ASC(Z4+CHR4(0)>:Z=Z+1«IFZ<50 

645THEN350 

370 SYS654B4:CLOSEI 

380 « 

390 REM //// STARTADRESSE //// 

400 : 

410 T4«“STARTADRESSEC SPACE y DESC SPACE y DRUCKER 
TREIBERS?"« GOSUB660 

420 I»VAL<I*> «IFI=0ORI>64173THEN410 
430 « 

440 REM //// ANPASSUNG AN START //// 

450 « 

460 PRINT“DRUCKERTREIBER£S£4££>WIRD£SPAC£>AN 
GEPASST!” 

470 FORZ*= 1TD27 s READX , Y > GOSUB770s P0KE49282+X , 
L:POKE49283+X,HsNEXT 

480 Y*11« GOSUB770:POKE49283,L >PQKE492B8,H 
490 Y=339«GOSUB770«P0KE49491,L«P0KE49498,H«P 
RINT" CUP2y "V4 
500 « 

510 REM //// SPEICHERN //// 

520 « 

530 T*»"FILENAME C SPACE y DESC SPACE y DRUCKERTREI 
BERS?"« 6OSUB660 

540 0PEN1,8,1,10t Y“0iGQSUB770IPRINTttl,CHR* <L 
>CHR4(H);«Z»492B2 

550 IFSTTHENCL06E1« GOSUB730«GOTO530 


<41 > 

<73> 

< 6 > 

< 178> 
<205> 

< 198> 

<248> 

<228> 


< 211 > 

<104> 


< 196> 
<50> 

<186> 

< 107> 
< 22 > 

< 166> 

< 22 > 

< 115> 
<229> 

< 0 > 


< 2 > 
<103> 
< 112 > 

< 123> 

< 167> 

< 109> 
<149> 

<56> 

< 139> 
<1B3> 
<247> 
<203> 

<1B2> 

<206> 

<233> 

<105> 

<253> 

< 110 > 

<10B> 

< 102 > 

<42> 

<47> 

< 121 > 
< 68 > 

< 170> 

< 122 > 
<194> 


560 PRINT01,CHR4(PEEK <Z))j« Z«Z+1«IFZ<5064STH 
ENS 50 

570 CLOSEI:PRINT"INIT« C££/££>SYS"STR4<I),“TA 
STE I SPACE y DRUECKEN!“ 

580 GET14 s IF14« " " THEN580 
590 SYS6473B« REM RESET 

600 3 
610 : 

620 REM UNTERPROGRAMME 
630 : 

640 REM //// EINGABE //// 

650 : 

660 P0KE214,17« PRINT3 PRINTY4Y4X4Y4“ CUP _J "T4 
670 POKE214,19sPOKE211,0:SYS58640:PRINT"““>“ 
CHR4 <160) 5 8POKE19B,0:SYS491S2,14 
680 IFI4*""THEN670 

690 PRINTsPRINT" C P 0UN2 y "Y4" £</P2> "«RETURN 
700 « 

710 REM //// FEHLERKANAL //// 

720 3 

730 POKE144,0:OPEN1,8,15«INPUTttl,D,D4,D1,D2: 
CLOSE13 PRINTD;D4;D1;D2 s RETURN 
740 « 

750 REM /// LOW/HIGHBYTE UMWANDLUNG /// 

760 : 

770 H*INT< (Y+D/256) sL« <Y+I)-H*256« RETURN 
780 s 
790 « 

800 REM //// DATAS FUER MC-TEIL //// 

810 : 

820 DATA120,169,107,141,20,3,169,192,141,21, 
3,169,82,141,143,2,169,192 

830 DATA141,144,2,88,32,253,174,32,139,176,3 
2,143,173, 160,0,32,207,255 

B40 DATA153, 153, 193,200,192,44, 144,2, 160,0,2 
01,13,208,239,136,152,32,117 

850 DATA180,160,2,1B5,97,0,145,71,136,16,248 
,165,97,240,12,160,0,185 

860 DATA153,193,145,98,200,196,97,208,246,96 
,165,204,208,18,173,141,2,41 

870 DATA1,141,141,2,165,203,201,51,208,4,169 
,64,133,203,76,72,235,165 

880 DATA204,208,16,169,32,141,247,6,169,19,1 
97,214,240,5,133,214,32,16 

890 DATA229,76,49,234,169,141,141,38,3,169,1 
92,141,39,3,96,72,165,154 

900 DATA201,4,240,4,104,76,202,241,104,141,1 
62,192,72,138,72,152,72,169 

910 DATA0,201,18,208,4,169,128,208,30,201,14 

6.240.24.201.13.240.4.201 

920 DATA141,20B,21,173,140,193,240,5,32,11,1 
93,240,6,32,143,193,32,143 

930 DATA193,169,0,141,244,192,201,32,144,53, 

201.64.144.31.233.64.201 ,32 

940 DATA144,25,24,105,32,201 ,96,144, 18,201,1 

28,144,32,233,32,201,128,144 

950 DATAS,233,64,201,127,144,2,233,33,9,0,23 

8,140,193,174,140,193,157 

960 DATA152,193,224,60,208,3,32,11,193,104,1 
68,104,170,104,96,169,128,162 
970 DATA6,160,255,32,35,193, 169, 132, 162,7,16 
0,6,32,35,193,169,0,141 

980 DATA140, 193,96, 141 ,63, 193, 142,97, 193,140 

,117,193,169,8,32,202,241,162 

990 DATA0,138,72,160,128,189,153,193,16,4,41 

,127,160,128,140,123,193,160 

1000 DATA0,140,88,193,160,3,10,46,88,193,136 
,208,249,24,105,213,141,104 

1010 DATA193, 169,0,105, 193, 141,105, 193, 160,8 
, 162,6,169,0, 141,121,193, 1B9 

1020 DATA213, 193,24,41,128,240, 1 ,56,46, 121,1 

93,202,224,255,208,239,169,0 

1030 DATA9,128,32,202,241,78,108,193,136,208 

,219,110,108,193,104,170,232,224 

1040 DATA0,208,164,169,8,32,202,241,169,13,7 

6,202,241 

1050 : 

1060 I 

1070 REM //// DATAS FUER ANPASSUNG //// 


< 83 > 

<215> 

<109> 

< 212 > 

< 14B> 

< 158> 
<47> 

< 178> 

< 113> 

< 19B> 
<176> 

<107> 

< 129> 
<92> 
<248> 
<206> 
< 12 > 

<67> 

<32> 

< 122 > 
<52> 
<237> 
<73> 
<B3> 
<174> 
<103> 

<233> 

< 164> 

< 105> 

< 195> 

< 169> 
<58> 
<5B> 
<3B> 
<92> 

< 14B> 
<39> 

< 17> 
<209> 
<8B> 
<241 > 
<218> 

< 175> 
<65> 
<241 > 

< 160> 

<3> 

<168> 

< 17B> 
<B8> 
<9B> 
< 210 > 
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PROGRAMME 


Itaso : < 118 > 

1090 DATA24,32,54,266,59,137 <254> 

1100 DATA64,269,67,269,72,114 <5> 

1110 DATA116,266,119,266,122,270 <176> 

1120 DATA129,137,144,161,153,161 <1B1> 

1130 DATA158,266,162,189,165,223 <152> 

1140 0ATA168,243,182,279,191,249 <59> 

1150 DATAl96,214,202,214,211,230 <204> 

1160 DATA218,231,227,247,230,339 <109> 

1170 DATA239,247,254,234,260,234 <33> 

ENDE DES LISTINGS 


Source-Code Print 


VARSUC=$B08E 
STRZEI=$B475 
CHSTR =^rtD8F 
CHKCQM*$AEFD 
CHR0U2=$F1CA 
CHRIN =$FFCF 
PL0T2 =$E510 

ORG $0000 


SOURCE-COBE FUER BAS FILE 
"CHAR-PRINT.C" 

SSSSSCS3C3SSSK 

<C) 1987 BVR 


BPL 14 

LDA $61 iLEERER STRING? 

BEQ 16 

LUV #0 ;EINGABE 

: 15 LBfl PF/V ;IN BEN 

STfl ($62)/V ;STRING 
INV ;KOPIEREN 

OPV $61 iENDE ERREICHT? 

BNE 15 ;NEIN/ BANN ZU 15 

: 16 RTS 


;I NTERRUPT- 
;R 0 U T I N E N 

i'CLR' VERHINDERN 


: CL1 LDA 204 ;BLINKT CURSOR? 

BNE CL2 

LBA 653 ;NUR SHIFT 

AND #1 ;ZULASSEN 

STA 653 

LBA 203 ;COBE FUER 'CLR' 

CMP #51 ;AUS 203 

BNE CL2 ;FILTERN 

LBA #64 
STA 203 

: CL2 JMP $EB48 ;DEKODIERROUTINE 


;N E U E I NPUT- 
i ROUTINE 


I 

SEI 




LDA 

#<IR1 

iIRQ-ZEIGER 


STA 

788 

;SETZEN 


LDA 

#>IR1 



STA 

789 



LDA 

#<CL1 

;ZEIGER FUER 


STA 

$028F 

iTASTATUR-DEKODIER- 


LDA 

#>CL1 

;ROUTINE SETZEN 


STA 

$0290 



CLI 




JSR 

CHKCOM 

;KOMMA NACH SVS XXXXX? 


JSR 

VARSUC 

/VARIABLE SUCHEN 


JSR 

CHSTR 

;STRING? 


LDV 

#0 


12 

JSR 

CHRIN 

iEINGABE HOLEN 


STA 

PF/V 

iABSPEICHERN 


INV 




CPV 

#44 

iGRENZE ERREICHT? 


BCC 

13 

iDANN ZEICHEN 


LDV 

#0 

iABHAENGEN 

13 

CMP 

#13 

/RETURN? 


BNE 

12 

/NEIN/ DANN ZU 12 


DEV 


iV VERMINDERN 


TVA 


iV-REG. IN DEN AKKU 


JSR 

STRZEI 

iSPEICHERPLATZ RESERV. 


LDV 

#02 


14 

LDA 

$61/V 

iDESCRIPTOR 


STA 

($47)/V 

iKOPIEREN 


DEV 




:IR1 LDA 204 
BNE IR2 
LDA #32 
STA 1783 
LDA #19 
CMP 214 
BEQ IR2 
STA 214 
JSR PL0T2 
: IR2 JMP $EA31 


;CURSOR-BEWEGUNG 
; BEGRENZEN 


/BLINKT 
;CURSOR? 

;DURCH "'DEL*' LOESCH- 
;BARES ZEICHEN SETZEN 
;CURSOR IN ZEILE 19? 


/NEIN> DANN SETZEN 
;ZUR ALTEN IRQ-RQUTINE 


;SOURCE-CODE FUER DIE NEUE DRUCK-ROUTINE 

;« WIRD NUR ZUM GENERIEREN DER ROUTINE * 
;# MIT INDIVIDUELLER STARTADRESSE UND « 
;* ZEICHENSATZ VERWENDET « 


ilHIT 

: D0 LDA #<D1 /'CHROUT'-VEKTOR 

STA 806 ;VERBIEGEN 

LDA #>D1 
STA 807 
RTS 

/ NEUE 
/ DRUCK- 
;r 0 U T I N E 


5/88 
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PROGRAMME 






TAX 


/HOLEN 

: D1 

PHfl 

/WIRD 


PLA 




LDA $9A 

;DRUCKER 


RTS 


/ENDE 


CMP #4 

;ANGESPROCHEN? 

• mmmmmmm 

—— 


•- 


BEQ D2 

iJfl/ DANN ZU D2 

:PR 

LDA 

#128 

;PARAMETER FUER 


PLfl 

;NEIN/ DANN ZEICHEN 


LDX 

#6 

;DRUCKROUTINE SETZEN 


JMP CHR0U2 

;AUSGEBEN UND ENDE 


LDV 

#255 


• D2 

PLfl 

;AKKU-INHALT RETTEN 


JSR 

PI 

/DURCKROUTINE 


STfl D3+1 



LDA 

#132 

;PARAMETER FUER 


PHfl 

;REGISTER AUF 


LDX 

#7 

i DRUCKROUTINE SETZEN 


TXfl 

;DEN STAPEL BRINGEN 


LDV 

#6 

/< UNTERLAENGEN > 


PHfl 



JSR 

PI 

;DRUCKROUTINE 


TVfl 



LDA 

#0 

;ZEIGER FUER ZEICHEN- 


PHfl 



STA 

P14+1 

;PUFFER AUF 0 SETZEN 

; D3 

LDA «0 

/AKKU-INHALT LADEN 


RTS 




CMP #18 

z'RVS ON'? 

i * 



»mm 


BNE D4 

j NEIN., DANN ZU D4 

• pi 

STfl 

P3+1 

/UNTERSTREICHUNG? 


LDfl #126 

;FLAG FUER UNTER- 


STX 

P7+1 

;WELCHE BVTES 


BNE D8 

;STREICHUNG SETZEN 


STV 

Pll+1 

;DES ZEICHENS? 

• B4 

CMP #146 

z'RVS OFF'? 


LDfl 

#8 

/DURCKER AUF 


BEQ D7 

iJR, FLAG LOESCHEN 


JSR 

CHRQU2 

;GRAFIKMODUS 


CMP #13 

/'RETURN'? 


LDX 

#0 

;ZEIGER AUF NULL 


BEQ DS 

;Jfli DANN ZU D5 

:P2 

TXA 


; ZEIGER AUF PUFFER 


CMP #141 

;'SHIFT+RETURN'? 


PHfl 


/IM STAPEL ABLEGEN 


BNE UM 

;nein> dann zu um 


LDV 

#128 


: D5 

LDfl P14+1 

;ZEICHEN IM PUFFER? 


LDfl 

PF /X 

;REVERS-FLAG FUER 


BEQ D6 

iNEIN, DANN ZU D6 


BPL 

P4 

;ZEICHEN GESETZT? 


JSR PR 

iJPl> DANN ZEICHEN IM 


AND 

#127 

/DANN 8. BIT LOESCHEN 


BEQ 07 

;PUFFER AUSGEBEN/ZU D7 

:P3 

LDV 

#126 

iß GF. UNTERSTREICHUNG 

: D6 

JSR NL 


:P4 

STV 

P13+1 

; ORfl-WERT SCHREIBEN 


JSR NL 

;ZEILEN-VORSCHUB 


LDV 

#0 


:D7 

LDfl #0 

; FLAG FUER UNTER- 


STV 

P6+1 

;BVTE LOESCHEN 

: D8 

STfl D9+1 

/STREICHUNG LOESCHEN 


LDV 

#3 


:UM 

CMP #32 


:pg 

ASL 


/BS-CODE MIT 8 MAL- 


BCC RT 



ROL 

P6+1 

/NEHMEN (ADDRESSE FUER 


CMP #64 

; ASCII-CODE 


DEV 


; DATEN DES ZEICHENS 


BCC D9 

; IN 


BNE 

P5 

; BERECHNEN) 


SBC #64 

jBILDSCHIRM-CODE 


CLC 


/ ZUM AKKU LOW-BVTE DES 


CMP #32 

; UMWANDELN 


ADC 

#<ZS 

; ZEICHENS. ADDIEREN 


BCC D9 



STfl 

P8+1 

/LOW-BVTE SCHREIBEN 


CLC 


: P6 

LDfl 

•0 

;high-bvte mit ueber- 


flDC #32 



flDC 

#>zs 

/TRAG ADDIEREN 


CMP #96 



STA 

P8+2 

/HIGH-BVTE SCHREIBEN 


BCC D9 



LDV 

#8 

/BITS PRO ZEICHEN 


CMP #128 


:P7 

LDX 

#6 

;BVTES PRO ZEICHEN 


BCC RT 



LDA 

#0 



SBC #32 



STA 

P12+1 

/BITMUSTER LOESCHEN 


CMP #128 


:P8 

LDfl 

ZS/X 

/ZEICHEN-BVTE LADEN 


BCC D9 



CLC 


; CARRV-FLAG LOESCHEN 


SBC #64 


:P9 

AND 

• 128 

; BESTIMMTES BIT 


CMP #127 



BEQ 

P10 

/GESETZT? 


BCC D9 



SEC 


/JA/ DANN CARRV SETZEN 


SBC #33 


:P10 

ROL 

P\2+l 

;UND IN DAS BITMUSTER 

:D9 

ORfl #0 

;RVS-FLAG SETZEN 


DEX 


; HINEINROTIEREN 


INC P14+1 

/ZEIGER ERHOEHEN 

JPII 

CPX 

#255 

; LETZTES BITMUSTER? 


LDX P14+1 

/ZEIGER IN X LADEN 


BNE 

P8 

/NEIN/ DANN ZU P9 


STfl PF-l/X 

/ZEICHEN IN DEN PUFFER 

•P12 LDfl 

#0 

/JA/ BITMUSTER IM AKKU 


CPX #60 

1ENDE DES PUFFERS? 

•P13 

ORA 

#128 

/GGF. UNTERSTREICHUNG 


BNE RT 

/NEIN/ DANN ZU RT 


JSR 

CHR0U2 

; BITMUSTER SENDEN 


JSR PR 

jJA/DANN ZEILE DRUCKEN 


LSR 

P9+1 

/ NAECH8TES BIT 

:RT 

PLfl 



DEV 




TflV 

; REGISTER 


BNE 

P7 

/ALLE 8 BITS? 


PLfl 

/VOM STAPEL 


ROR 

P9+1 

/JA/ DANN RND-WERT«128 
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PL« 

TAX 

IHX 

:P14 CPX #0 
BNE P2 

; NL LDR #3 

JSR CHR0U2 
LDR #13 
JMP CHROU2 


;ZEIGER RUF PUFFER 
;VOM STRPEL HOLEN 
;HRT ZEIGER DIE RNZRHL 
/DER ZEICHEN IM PUFFER 
;ERREICHT? NEIN/WEITER 

/ZEILENVORSCHUB OHNE 
/ZWISCHENRBSTRND 


: PF 

S 

60 

;60 BYTES 
;ZEICHEN-PUFFER 

: ZS 

s 

1024 

;1024 BYTES 
;ZEICHENSATZ 

Fill 


C—64 LISTING + CHECKSUMMEN (C VI.0) 

10 REM — FILL — (C) 1987 BVR 
20 F0RZ S 82BT88641READW:POKEZ,W> NEXT 
30 PRINT "MIT t SPACE y WELCHEM <SP4££> WERT t SPACE y 
SOLL <SP/IC£>DER{SP4C£1SPEICHER":INPUT“AUFGEFU 
ELLT <SP4C£JWERDEN“;W 

40 PRINT"{ CLEAR > SYS82B,W“:POKE198,2:P0KE631, 
19:P0KE632,13 

50 DATA32.241,183,142,81,3,160,0,132,251,169 
,8,133,252,200,120,169,52 

60 DATA133,1,169,0,145,251,200,208,249,230,2 

52,208,245,169,55,133,1,88 

70 DATA96 

ENDE DES LISTINGS 


Source-Code Fill 


F I LL- 

SPEICHER MIT BESTIMMTEN 
WERT FUELLEN 
<C) 1987 BVR 


C-64 LISTING + CHECKSUMMEN (C VI.0) 

10 REM *** RAM-LIST *** <C> BVR 

20 : 

30 F0RI=828T0931:READW:POKEI,W:NEXT 
40 PRINT"RAM—LIST< SPACE 3 ><C) t SPACE y BVR" 

50 PRINT"-“ 

60 PRINT“AUFRUF: t SPACE ySWBt SPACEy B2B.<*>tDOH 

«3 “ 

70 PRINT"LISTET t SPACE y DEN tSPACEy SPEICHERBERE 
ICH“ 

80 PRINT“ABE SPAC£ XX>t SP4CO AUF. t SP4CE2 ><SPA 
CE > t SPACE, } H AELT “ 

90 PRINT"DEN t SPACE2 y LISTVORGANG t SPACE2 y AN■<S 
P4CC 3EINE“ 

100 PRINT“ANDERE{S£4C£>TASTE<S£4C£>BRICHT ISP 
ACEy DIESEN“ 

110 PRINT"AB.“ 

120 DATA32,253,174,32,138,173,32,247,183,166 

,20,165,21,32,205,189,169,58 

130 DATA32,210,255,169,7,133,2,133,211,120,1 

62,52,134,1,160,0,177,20 

140 DATA162,55,134,1,88,170,169,0,32,205,189 
,230,20,208,2,230,21,165 

150 DATA2,24,105,4,201,39,208,217,169,13,32, 
210,255,32,228,255,240,193 

160 DATA201,32,208,7,32,228,255,240,251 ,208, 
182,160,6,132,198,185,156,3 

170 DATA153,118,2,136,208,247,96,83,217,56,5 
0,56,44,73 

ENDE DES LISTINGS 


Source-Code Ram-List 


<206> 

<78> 

< 188> 
< 162> 
< 169> 


<78> 

< 200 > 


< 171 > 
<221 > 


R fl M - L I S T 
INHALT DES SPEICHERS 
ANZEIGEN 
<C> 1987 BVR 


ORG 828 


:CHKCOM*$AEFD 
: FRMNUM*$AD8fl 
:FACADR«$B7F7 
:flDROUT-*BDCD 
: GETIN *$FFE4 
J CHRQUT»$FFD2 

ORG 828 


JSR 
STX 
LDV 
STV 
LDfl 
STA 
INV 
SEI 
LDfl 
STA 
: LB LDA 
STA 
INV 
BNE 
INC 
BNE 
LDA 
STA 
CLI 
RT8 


$B7F1 

LB+1 

#8 

251 
#8 

252 


#52 

1 

#0 

<251 )/V 


;KQMMfl+BVTEWERT HOLEN 
/BVTEWERT ABSPEICHERN 
/VEKTOREN SETZEN 


;BEI 2049 ANFÄNGEN 
;IRQ AUS 

/DURCHGEHEND RAM EIN 

jSPEICHERZELLE AUF 
;BESTIMMTEN WERT 

;y-reg. erhoehen 

;v WIEDER HUF NULL? 
/DANN HI-BYTE ERHOEHEN 
/HI-BYTEO0? DANN LB 
Jl/0 UND ROMS EIN 

ilRQ EIN 
/RUECKSPRUNG 


RAM-List 


JSR 
JSR 
JSR 
: LB1 LDX 
LDfl 
JSR 
LDA 
JSR 
LDA 
: LB2 STA 
STA 
SEI 
LDX 
STX 
LDY 
LDA 
LDX 
STX 
CLI 
TAX 
LDA 
JSR 


CHKCOM 

FRMNUM 

FACADR 

$14 

$15 

ADROUT 

#': 

CHROUT 

#7 

2 

211 

#52 

1 

#0 

<$14)/Y 

#55 

1 


#0 

ADROUT 


;KOMMA? 

;16-BIT WERT HOLEN 


;ADRESSE AUSGEBEN 

/DOPPELPUNKT 

/AUSGEBEN 

/ZAEHLER FUER SPALTE 
;SETZEN 

/IRQ AUS 

;DURCHGEHEND RAM EIN 


/BYTE LADEN 
/I/O UND ROMS EIN 

;IRQ EIN 

/BYTE-WERT AUSGEBEN 


Compute mit 








PROGRAMME 


INC $14 ; ADRESSE 

BNE LB3 ;ERHQEHEN 

INC $15 

: LB3 LDfl 2 ;SPRLTENZEIOER 

CLC jERHOEHEN 

flDC #4 

CMP #39 iENDE DER ZEILE? 

BNE LB2 

LDfl #13 ;Jfl, RETURN flUSOEBEN 

JSR CHROUT 

JSR OETIN i TASTE GEDRUECKT? 

BEQ LB1 /NEIN/ DANN ZU LB1 

CMP #32 ;SPflCE GEDRUECKT? 

BNE LB5 ;NEIN, DANN ZU LB5 

: LB4 JSR GETIN ;Jfl/ DANN AUF 

BEQ LB4 ;TASTENDRUCK WARTEN 

BNE LB1 
:LB5 LDV #6 

STV 198 j STARTBEFEHL 

: LB6 LDfl TX-l/V ;IN DEN TASTATUR- 

STA 630,V ;PUFFER SCHREIBEN 

DEV 

BNE LB6 

RTS i RUECKSPRUNG 

: TX B"S 1828," 


Demo 


C-64 LISTING + CHECKSUMMEN <C Vl.B) 

0 REM ** BEISPIELPROGRAMM ZUM ** 

1 REM ** AUSDRUCKEN VON FILES ** 

2 REM ** <W> 1987 HBT ** 

3 : 

4 1 

10 SYS STARTADRESSE 

11 i 

12 :REM INITIALISIEREN DES DRUCKER- 

13 «REM TREIBERS. 

19 s 

20 A*=CHRS(13> 

21 : 

22 sREM A* DEN WERT EINES RETURNS 

23 1REM ZUWEISEN 

29 : 

30 N*«"FILENAME“ 

31 : 

32 tREM N* DEN FILENAMEN ZUWEISEN 

39 j 

40 OPEN 1,4 

41 s 

42 :REM DRUCKERKANAL OEFFNEN 

49 : 

50 OPEN 2,B,2,N*+",S,R" 

51 : 

52 sREM FLOPPYKANAL OEFFNEN 

53 sREM “,S,R" FUER SEQ-FILES 

54 :REM ",P,R" FUER PRG—FILES 

55 :REM “,U,R" FUER USR-FILES 

59 : 

60 PRINT#1,A4; 

61 : 

62 :REM A* AUF DEN DRUCKERKANAL GEBEN 

69 s 

70 GET«2,A* 

71 s 

72 :REM NEUES ZEICHEN VON FLOPPYKANAL 

73 :REM A* ZUWEISEN 
79 : 

G0 1F ST=0 THEN 60 
Bl : 


< 16> 

< 169> 
<235> 
<61 > 
<62> 
<81 > 
<69> 
< 10 > 
< 200 > 
<77> 

< 106> 
<79> 
<73> 
<50> 
<B7> 
<47> 
<B9> 
<59> 
<97> 

< 125> 
<99> 
<213> 

< 107> 
<64 > 

< 109> 

< 118 > 
<90> 
<69 > 
<83> 

< 117> 
< 212 > 

< 119> 
<42> 

< 127 > 

< 144> 

< 129> 

< 1B> 

< 171 > 
<137> 
<25> 

< 139> 


B2 sREM WENN KEIN DATEIENDE ODER <169> 

83 sREM FEHLER, SCHLEIFE FORTSETZEN <109> 

89 s <147> 

90 CLOSE 2 <94> 

Y1 5 <149> 

92 sREM SONST FLOPPYKANAL SCHLIESSEN <250> 

99 s <157> 

100 PRINT#lsCLOSE 1 <129> 

101 : <159> 

102 sREM UND DRUCKERKANAL SCHLIESSEN <45> 

ENDE DES LISTINGS 


Char-Basic/Gen 


C—64 LISTING + CHECKSUMMEN <C V1.0) 


10 REM *** CHAR-BASIC/GEN *** 

20 : 

30 REM <C> 1987 HST 

40 N*="CHAR—BASIC"sPRINTTAB(9) "D&SI SPACE >ASS 
EMBLER-PROGRAMM" 

50 PRINTTAB(14)“•“N*"•" 

60 PRINTTAB (7) "WIRD< SP4Cf 1AUF( SP4CC >DISK<SP/I 
CE} GESPEICHERT."sPRINT 

70 PRINTTAB<10)“!!!fSP4C£)BITTE{SP4C£}WARTEN 
{ SPACE }!!!"sPRINTsPRINT 

80 OPEN1,8,1,N4sPRINT#1,CHR$(0)CHR4(192); 

90 FOR 1 = 1 TO 1lB3s READ WsS=S+WsPRINT41,CHR* 
(W);sNEXT 

100 CLOSE lsIF S<>126251 THEN PRINT "MOMENT! 
C SP4CO FEHLER I SP4CO INC SP4CO DATAS ! " s END 
110 PRINT "FERTIG!" 

120 DATA32,129,255,120,169,118,141,20,3,169, 
194,141 ,21,3,169,93,141,143 

121 DATA2,169,194,141,144,2,88,169,15,141,33 
,208,169,11,141,32,208,141 

122 DATA134.2, 169, 147,133,20, 169, 194, 133,21 , 
160,0,162,1,177,20,240,47 

123 DATA201,1,208,4,169,32,208,14,201,2,208, 
4,169,192,208,6,201,3 

124 DATA208,13,169,42,72,230,20,208,2,230,21 
,177,20,170,104,32,210,255 

125 DATA202,208,250,230,20,20B,207,230,21,20 

8.203.32.20.194.32.85.194.169 

126 DATA211,160,195,32,30,171,32,226,193,169 
,0,168,162,8,32,186,255,169 

127 DATAB,162,157,160,196,24,32,213,255,176, 

220.32.20.194.32.85.194.169 

128 DATA23B, 160,195,32,30, 171 ,32,66,241 ,201, 
49,208,15, 169,18, 162, 151,160 

129 DATA4,32,75,194,169,8,162,16,208,93,201, 
50,208,15,169,18,162,149 

130 DATA160,132,32,75,194,169,136,162,144,20 
8,74,201,51,20B,15,169,62,162 

131 DATA149,160,140,32,75,194,169,184,162,19 
2,20B , 55,201,52,20B ,15,169,32 

132 DATA162,148,160,200,32,75,194,169,192,16 

2.200.208.36.201.53.208.15.169 

133 DATA52,162,148,160,204,32,75,194,169,208 
,162,216,208,17,201,54,20B,154 

134 DATA169,62,162,148,160,204,32,75,194,169 
,248,162,0,141,108,196,142,129 

135 DATA 196,32,85, 194,169,255,160,195,32,30, 
171,169,192,133,254,162,0,134 

136 DATA253,32,205,189,169,128,141,138,2,32, 
66,241,201,13,240,73,201,43 

137 DATA208,9,230,253,208,37,230,254,76,93,1 
93,201,45,20B,13,198,253,165 

138 DATA253,201,255,208,20,198,254,76,93,193 
,201 ,219,208,5,230,254,76,93 

139 DATAl93,201,221,208,206,198,254,162,19,1 
60,5,24,32,240,255,165,254,166 

140 DATA253,32,205,189,164,211,169,32,145,20 
9,200,192,11,208,249,240,176,165 

141 DATA254,141,102,196, 165,253,24, 105,63, 14 
4,3,238,102,196,141,100,196,32 

142 DATA85, 194, 169,44,160, 196,32,30,171,32,2 
26,193,169,1,162,B,16B.32 

143 DATA186,255,32, 192,255, 162, 1 ,32,201 ,255, 


< 186> 

<78> 

<87> 

<241 > 
<BB> 

<231 > 

< 15> 
<224> 

< 1B6> 

<249> 

< 119> 

<224> 

< 116> 
<247> 

< 16B> 
<224> 
<183> 
<55> 

< 1B4> 
<81 > 
<41 > 
<2B6> 

< 1B> 
<27> 
<69> 

< 153> 
<15B> 
<175> 
<209> 
<3> 
<226> 

< 116> 
<240> 
<42> 


38 


Compute mit 


5/88 





PROGRAMME 


165.253.32.210.255.165.254.32 <BB> 

144 DATA210,255, 169,94,162,196,133,251,134,2 

52,160,0,177,251,32,210,255,230 <237> 

145 DATA251,240,14,165,251,201,157,208,241,1 

65,252,201,204,208,235,240,4,230 <186 > 

146 DATA2S2,208,229,32,204,255,169,1,32,195, 

255,76,0,192,160,30,169,32 <118> 

147 DATA136,153,122,7,208,250,162,22,160,10, 

24,32,240,255,160,0,132,157 <195> 

148 DATA32,207,255,153,60,3,200,192,50,144,2 

,160,0,201,13,208,239,136 <32> 

149 DATA152,240,213,162,60,160,3,76,189,255, 

162,24,32,255,233,162,24,160 <46> 

150 DATAS,24,32,240,255,169,8,170,160,15,32, 

186,255,169,0,32,189,255 <172> 

151 DATA32,192,255,162,8,32, 198,255,32,207,2 

55,201,13,240,6,32,210,255 <63> 

152 DATA76,54,194,32,204,255,169,8,76,195,25 

5,141,138,196,142,140,196,140 <164> 

153 DATA142,196,96,162,18,160,0,24,76,240,25 

5,165,204,208,18,173,141,2 <207> 

154 DATA41,1,141,141,2,165,203,201,51,208,4, 

169,64,133,203,76,72,235 <137> 

155 DATAl65,204,208,22,169,64,141,111,7,173, 

110,219,141,111,219,169,22,197 <254> 

156 DATA214,240,5,133,214,32,16,229,76,49,23 

4,13,1,3,67,72,65,82 <231> 

157 DATA4S,66,65,83,73,67,32,40,67,41,32,49, 

57,56,55,32,72,79 <19> 

158 DATA76,71,69,82,32,83,84,79,69,84,69,82, 

13.13.3.40.13.32 <13> 

159 DATA49.41 ,46,66,65,83,73,67,83,80,69,73, 

67,72,69,82,66,69 <27> 

160 DATA71,73,78,78,13,1,23,90,83,58,50,48,5 

2.56.32.32.66.83 <196> 

161 DATA58,49,48,50,52,13,32,50,41,46,46,46, 

66.65.83.73.67.83 <9> 

162 DATAB0,69,73,67,72,69,82,69,78,68,69,13, 

1,23,90,83,58,51 <189> 

163 DATA52,56,49,54,32,66,83,58,51,51,55,57, 

50,32,51,41,46,46 <23> 

164 DATA46,46,B5,78,B4,69,82,77,32,66,65,83, 

73,67,45,82,79,77 <19> 


165 DATA13, 1,23,90,83,58,52,55,49,48,52,32,6 

6,83,58,51,53,56 <61> 

166 DATA52,48,32,52,41,46,46,46,73,77,32,52, 

75.32.82.65.77.32 <226> 

167 DATA66,69,82,69,73,67,72,13,1,23,90,83,5 

B,52,57,49,53,50 <45> 

168 DATA32,66,B3,58,53,49,50,48,48,32,53,41, 

46.46.85.78.84.69 <70> 

169 DATA82,77,32,90,69,73,67,72,69,78,45,82, 

79.77.13.1.23.90 <99> 

170 DATAB3,58,53,51,50,52,56,32,66,83,58,53, 

50,50,50,52,32,54 <205> 

171 DATA41,46,46,46,85,78,84,69,82,77,32,75, 

69,82,78,65,76,45 <B> 

172 DATA82,79,77,13,1,23,90,83,58,54,51,52,5 

6,56,32,66,83,58 <77> 

173 DATA53,50,50,50,52,13,13,13,13,2,40,70,7 

3,76,69,78,65,77 <193> 

174 DATA69,58,160,13,2,40,0,90,69,73,67,72,6 

9.78.83.65.84.90 <10> 

175 DATA32,76,65,68,69,78,46,0,66,73,84,84,6 

9,32,87,65,69,72 <180> 

176 DATA76,69,78,32,83,73,69,33,32,60,49,45, 

54,62,0,71,69,78 <B4> 

177 DATA69,82,65,84,79,82,83,84,65,82,84,32, 

87.65.69.72.76.69 <79> 

178 DATA78,32,33,32,60,43,47,45,32,40,83,72, 

73,70,84,41,62,13 <214> 

179 DATA65,68,82,46,58,0,90,69,73,67,72,69,7 

8,83,65,84,90,71 <227> 

180 DATA69,78,69,82,65,84,79,82,32,65,66,83, 

B0,69,73,67,72,69 <145> 

181 DATA82,78,46,32,32,32,32,32,13,32,32,32, 

32.32.32.32.32.32 <44> 

182 DATA32.0,120,169,48,133,1,169,0,162,0, 13 

3,253,134,254,169,0,133 <64> 

1B3 DATA252,160,0,132,251,177,253,145,251,20 
0,208,249,230,254,230,252,165,252 <179> 

184 DATA201,0,208,239,169,55,133,1,88,169,0, 

162,0,160,0,141,24,208 <212> 

185 DATA142,0,221,140,136,2,169,147,76,210,2 

55,0,82 <202> 

ENDE DES LI8TINGS 


o * 


4 




Gefahr von 
allen Seiten 

— Die Weltraumschlacht in ° ^ * 

3D-Perspektive — ^ o 



Wenn Ihr über gutes Reak¬ 
tionsvermögen verfügt, seid Ihr 
geeignet, die Verteidigung der 
Raumstation dieses Spiels zu 
übernehmen. Versucht Euer 
Glück im Kosmodrom! Die 
Raumstation wird von allen Sei¬ 
ten angegriffen. Ihr habt die 
Aufgabe, durch Umkreisen der 
Raumstation mit einem Raum¬ 
schiff, deren Vernichtung zu 
verhindern bzw. aufzuhalten. 
Eröffnet das Feuer auf die an¬ 
greifenden Flugkörper. (Steu¬ 
erknüppel an Port 1 oder 2). 


Die Raumstation ist durch ei¬ 
nen Energieschirm gesichert, 
so daß erst durch eine Vielzahl 
von Treffern die Basis zerstört 
werden kann. Jeder feindliche 
Treffer, den die Raumstation 
erhält, kostet Euch einige Ein¬ 
heiten Eurer Abschirmenergie, 
und bereitet die vollkommene 
Zerstörung der Raumstation 
vor. Die in Kreisbahnen an- 
kommenden Raumminen bela¬ 
sten in ganz besonderem Maße 
die Energiespeicher des Ab¬ 
wehrschirms. 







Compute mit 




PROGRAMME 


Mit dem Abschuß jedes Flug¬ 
körpers werden Euch Punkte 
gutgeschrieben, die einen Lei¬ 
stungsvergleich mit dem Spiel¬ 
partner ermöglichen. Erreicht 
Ihr den Punktestand von 
20000, erneuert sich der schüt¬ 
zende Energieschirm der 
Raumstation. Haltet also die 


Augen auf, damit der Euch an¬ 
vertraute Stern nicht gar so 
schnell zu Staub verfällt. 
Tastaturbelegung : 

Restore = Programmstart / 
Spielabbruch 

Fl = Wahl Titel / Rangliste 
A-Z/DEL - Ranglisteneintra¬ 
gung 


Shift/clr = Rangliste löschen 
Programmeingabe : 

Nachdem Ihr die Pro¬ 
grammteile 1-6 eingegeben 
und abgespeichert habt, solltet 
Ihr die Teile 1-5 nacheinander 
laden und starten. Im Anschluß 
ladet Ihr Teil 6. Mit RUN 100 
könnt Ihr die Spielversion im 


Normal-Modus auf Kassette 
oder Diskette speichern. Nach 
dem Laden kann das Pro¬ 
gramm mit RESTORE gestar¬ 
tet werden. Mit RUN 150 spei¬ 
chert Ihr das Programm im 
Schnellverfahren. Danach er¬ 
folgt das Laden mit 
SHIFT/RUNSTOP. 


Teil 1 


C—64 LISTINE + CHECKSUMMEN (C VI.0) 


10 REM- <227> 

11 REM > KOSMODROM < TEIL 1 <B2> 

12 REM <155> 

13 REM <C> T.LANARI 19B7 <186> 

14 REM- <231 > 

110 PRINT ”I C LEAR i ”IP0KE36,74aP0KES2,74> P0KE3 
3280,2tPOKE532B1,2 <108> 

120 PRINTTAB<253>SPC<236>"{ H«ITf> BITTE< SP4CC 
>ETWAS< £edg£ >BEDULD< £fi4££> \» <70> 

130 FORA-679TO701aREADBsPOKEA,BiNEXTi6Y8679I 
DATA160.0,162,74,132,232,134,233 <242> 

140 DATA1S2,143,232,136,208,231,230,233,166, 
233,224,208,208,243,96 <120> 

144 I <202> 

143 REM GRAPHIK I. TABELLEN <91 > 

146 I <204> 

130 DIMBI(11)■FORA-OTOl1lREADBI<A)lNEXTiDATA 
192,48,12,3,64,16,4,1,128,32,8,2 <39> 

160 PF—4 a FORA—0TO7aREADY1,X1,Y2,X2 iBOSUB200i 

NEXTiPF-0aFORA-0TO12 <122> 

170 READY1,X1,Y2,X2i8OSUB200iNEXTiFORA-29184 
T031743s POKEA, 23Si NEXT i PF—4 <B3> 

180 FORYP-0TO64STEP641FORY1-0TO8IY2—9+Y1lXI 
-0s X2-7016OSUB200!X1-1S9IX2-B8 <226> 

190 GOSUB200s NEXTY1,YPsFORA-0TO3119lPOKE4681 
6+A,PEEK<26624+A)iNEXTlGOTO3S0 <42> 

200 YK-Y1iYD-Y1-Y2iXD-X1-X2iFORXK-X1T0X28TEP 
SGN(-XD) <35> 

210 YY—INT((XK—XI)*(YD/XD)+Y1+.3) <43> 

220 IFYY-YKTHENGOSUB240INEXTiRETURN <14> 

230 YK—YK—SGN(YD)aBOSUB240IGOTO220 <51> 

240 IFYK<0THENRETURN <130> 

250 PA-320*INT((YK+YP>/8>+(<YK+YP)AND7)+8*IN 
T(XK/4)+26624 <171> 

260 POKEPA,PEEK <PA)ANDNOTBI(((XK*2)AND7)/2>0 
RBI<PF+<(<XK*2)AND7)/2))aRETURN <103> 

270 Y—INT(A> a C—F+INT((Y—137)/8) + < <Y—137)AND7 
)+46816aP0KED+384,C/E <240> 

280 POKED+E,C-INT(C/E)*Ea C-C+2560a POKED+640, 
C/EaP0KED+512,C—INT <C/E)*E <36> 

290 C—F+INT((199—Y)/8) + ( <199—Y)AND7)+163841P 
OKED+896,C/E aP0KED+768.C-INT(C/E)»E <223> 

300 C—F+INT(Y/B) + (YAND7)+16384aP0KED+128.C/E 
aPOKED.C—INT <C/E)*EaRETURN <206> 

310 DATA11,0,11,159,33,0,33,139,47,0,47,139, 
52,0,32,159,36,0,36,139,39,0,39,159 <19> 

320 DATA60,0,60,159,62,0,62,159,0,70,0,88,9, 
0,0,70,9,159,0,88,17,0,0,72,17,159 <36> 

330 DATA0,B6,29,0,0,74,29,139,0,84,49,0,0,76 
,49,159,0,82,63,22,0,77,63,136,0,81 <185> 

340 DATA63,59,0,78,63,99,0,80 <15> 

350 B=.17s F—320 a E—256a A—137a FORD—44032TOD+12 
7s GOSUB270SA-A+Bs D-B+l.0147 s NEXT <240> 

360 FORA-0TO2++STEP.015aXK-INT(SIN(A)*62+62) 
aYK-INT(COS(A)+18+48):GOSUB430aNEXT <1B3> 

370 FORB-—lT01STEP2aFORA—0TO2++STEP.015|XK-I 
NT(SIN(A+B)+45+62) <22> 

380 YK-INT(COS(A)+43+48)aGO8UB430INEXTA.BiC- 
0 a FORA—0TO2* »STEP.099 <21B> 

390 XK-INT(SIN(A)*62+179)a YK-INT(COS <A)*18+1 
83)a GOSUB420INEXT a FORB—-1T01STEP2 <109> 

400 FORA—1+BT02+++1+BSTEP.099aXK-INT(SIN(A+B 


>*45+179)aYK-INT(COS(A>*45+183) 

410 GQSUB420SNEXTA.BaGOTO4S0 

420 P0KE36864+C,XKiPOKE37056+C,YKlC-C+1lRETU 

RN 

430 FQRXK—XKTOXK+1a PA-3532B+128+INT(YK/B) + (Y 
KAND7)+8*INT(XK/B) 

440 POKEPA,PEEK(PA>0R2"'(7— (XKAND7) > aNEXTaRET 
URN 

450 B—45056a FORA-45312TOA+9928TEP321POKEB,A- 
INT(A/256)+256aPOKEB+32,A/2S6 
460 B-B+la NEXTa B-45184aFORA-2.025++TO+/408TE 
P-.099iPOKEB,SIN(A)*52+174 

470 POKEB+64,COS(A)*25+1501B-B+laNEXTa A-l.5* 
rs B-0aC—51936aD-155a E-. 036 

480 POKEC+B,SIN(A>*D+133iPOKEC+B+100,(193-<8 
IN(A)*D>> AND255 

490 POKEC+B+200,COS(A)*(D-36)+132lPOKEC+B+30 
0,130—(COS(A)*(D—36)) 

500 B—B+la D—D-.9iE-E+1E-04IA-A-ElIFA>+/3THEN 
480 

504 l 

505 REM DATEN LESEN 

506 l 

510 READAiIFA<0THENEND 
320 READBaIFB<0THENS10 
530 POKEA,BaA-A+laGOTO320 
540 a 

1000 REM RAUMSTATION (SATZ 1) 

1010 DATA24576, ,,,,,,,,,,,,,,,,,,,,, ,2,9, , , , 
,,42,149,83,,10,47,47,175,191,111 
1020 DATA110,,168,234,190,190,235,190,174,,, 
,,128,170,85,85,,,,,,,160,83,,,,,, 

1030 DATA,,,,,,,,,,,,,,,,,,,,2,9,9,37,37,37, 

37,149,86,89,101,101,85,B6,85,165 

1040 DATAB5,B6,105,150,152,96,91,91,106,150, 

106,130,2,2,185,185,170,165,170,160 

1050 DATA160,160,85,86,85,165,90,165,9,2,86, 

149.101.89.86.150.149.101.. 128.96 

1060 DATA88,8S,B6,B6,B6,,,,,,,,,,10,47,47,46 

,47,47,42,165,186,235,253,191,255 

1070 DATA255 ,186,86,90,170,230,235,230,171,9 

0,128,,,170,255,170,255,170,2,2,11 

1080 DATA175,255,175,251,174,160,160,1B4,190 

,191,254,231,238,,,,170,235,170,255 

1090 DATA170,165,41,42,171,255,171,230,169,8 

6,107,191,235,253,235,191,107,128 

1100 DATA168,254,254,174,254,254,170,47,10,, 

,,,,,165,165,37,37,41,41,10,9,B6,86 

1110 DATA8S,101,101,89,86,149,,,12B,128,104, 

86,83,165,10,2,2,2,2,130,106,91,232 

1120 DATA224,224,224,224,224,234,249,,,,,10, 

165,85,86,37,37,149,150,86,B9,101 

1130 DATA149,B6,B6,B6,86,90,90,104,132,190,1 

AS»,,,,,,,,,,,,,.2,,,,,,,,101,153 

1140 DATA38,9,2,,,,83,83,149,106,149,42,,,91 

,111,111,191,173,175,47,42,249,254 

1150 DATA254,235,190,190,254,170,85,85,85,17 

0,149,170,,,86,89,166,88,160,,,,96 

1160 DATA128,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

iiiiimmm »47 , 10, , , , , , ,254, 168 

1170 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

mimif ttmmim 10,47,47,47,43 

1180 DATA43, , 168,254,255,191 ,239,235,235, , , , 

128.170.229.229.230.. ...170.85.149 

1190 DATA166,,,,,128,106,85,163,,,,,,,160,88 
••»»••«»•»••.»•»«.•»...»..»2,9,9,37 


<236> 

< 117> 

<4B> 

<53> 

<73> 

<217> 

<233> 

<123> 

<87> 

<131> 

< 5 > 
<31 > 

< 132> 
<33> 
<97 > 
< 202 > 
<82> 
< 88 > 
<239> 

<91> 

<207> 

<7> 

<39> 

<79> 

<193> 

<47> 

<201 > 

< 131 > 
<1S3> 
<199> 

< 184 > 

< 160> 
< 161 > 
< 146> 
<76> 
<205> 
<231 > 
<B6> 


Compute mit 


5/88 


40 











PROGRAMME 


1200 DATA37,38,38,149,85,89,101,149,149,86,2 

53,191,107,91,106,150,152,96,229 

1210 DATA249,250,249,250,190,190,175,149,149 

,170,149,170,128,128,128,90,85,85 

1220 DATA165,90,165,9,2,86,149,101,85,86,ISS 

,171,191,,130,107,191,255,254,255 

1230 DATA255,,160,248,248,190,254,254,250,,, 

,,,,,,150,150,149,149,149,149,149 

1240 DATA170,86,90,90,88,88,88,106,191,128, , 

,,2,43,191,254,47,43,11,47,191,255 

1250 DATA235,190,128,160,186, 191,191,254,251 

,250,10,175,255,250,175,250,160, 

1260 DATA255,255,170,249,169,9,9,9,255,170,8 
5,85,85,85,85,101,174,184,160,128 
1270 DATA128,12B,128,128,2,11,47,47,47,43,43 
, 10, 191 ,255,255,239,191 ,255,250,175 
1280 DATA255,255,254,233,229,149,86,149,235 , 
190,168, 128, 104,86,85,149,235, 130, 

1290 DATA,,128,106,85,190,190,175,47,43,11,1 

71.91.. .128.128.234.249.250.255.37 

1300 DATA37,149,149,86,89,85, 149, 101,102, 150 

,150,90,90, 104, 152, 128, 128, ,,,,,, 11 

1310 DATA2,,,,,,,250,160,,,,,,,101,153,38,9, 

2, , , , 105,86, 149,106, 149,42, , ,85, 165 

1320 DATA85.B5,170,85,170,,91,86,B6,86,170,8 

5.170.. 255.255.255.254.191.191.239 

1330 DATA186,230,249,250,254,190,254,234,190 
,96,128,,,,,,,,,,,,,,,,,,,,,,,,,,, 

1340 DATA, 

47.10.. .....232.128.............., 

1350 DATA,10,47,191,190,,, 
, , 160,248,254,254, , , , , ,42, 149,85, , 

1360 DATA,,170,85,BS,106,,,,,170,85,149,170, 

,,,, 128 , 106 , 85 , 85 ,,,,, 2 , 11 , 175,111 

1370 DATA,,,,168,254,255,239,,,,,,,128,128,, 

..191,191,47,10,9,37,37,37,191 

1380 DATA255,255,255,175,91,86,86,149,149,22 

9,250,254,254,255,175,85,85,106,149 

1390 DATA106,128,128,224,149,149,170,149,170 

,128,128,130,85,85,86,171,111,175 

1400 DATA191,254,191,191,255,255,254,249,229 

,165,191,255,254,232,152,86,86,86 

1410 DATA128,128,,,,,,,....149,150,150,1 

50,150,150,150,150,86,90,90,88,88 

1420 DATA8B,88,88,251,174,11,2,,,,2,248,254, 

191 ,239,175,175, 191 ,254,139,175, 191 

1430 DATA190,190,254,255,175,251,238,184,224 

,128,128,128,224,229,169,41,9,9,9,9 

1440 DATA9.85,101,101,101,101,101,101,101,12 

8.128.128.128.128.128.128.128.. .., 

1450 DATA,,,149,165,37,37,41,42,47,191,86,86 

,86,91,175,255,253,253,11,175,255 

1460 DATA2S4,254,250,229,149,251,238,184,224 

,128,128,106,85,251,174,11,2,,,170 

1470 DATABS,248,254,191,239,175,171,86,85,37 

,165,229,249,254,255,255,191,85,86 

1480 DATA86.B6,154,234,254,255,128,128,,,,,, 

128.. ......, 191,190,191,175, 186,47 

1490 DATA10,,191,254,254,249,174,248,160,,14 

9.83.149.106.149.42.. .85.106.85.85 

1500 DATA170,85,170,,85,170,85,85,170,85,170 

,,85,85,85,106,149,106,128,,191,111 

1510 DATA175,91,174,11,2,,191,239,255,254,17 

1.254.168.. 128.128.128.128.128...., 

1520 DATA, 


< 13S> 
<117> 

< 15> 
< 222 > 
<B2> 
<62> 
<29> 

< 136> 

< 116 > 
<24> 

< 121 > 
<13> 

< 119> 

< 174> 

< 129> 

< 104 > 

< 103> 

< 1BB> 
<37> 
<92> 

< 102 > 
<26> 
<70> 
<40> 
<95> 
<242> 
<134> 
<81 > 
<33> 
<89> 
<33> 
<235> 
<136> 


1530 DATA,,,,,,,-l,46336,» 

,,,2,9,.42,149,86.170,83,85 <134> 

1540 DATA166,,,,,170,86,150,166,,10,47,191,1 

91.254.255.255.. 128.232.254.190.254 <51> 

1550 DATA250,250,,,,,,,,,,,,,,,,,,2,11,11,47 

,47,47,43,,160,250,255,191,239,255 <2> 

1560 DATA2SS,37,149,86,149,229,249,250,255,1 
05,149,85,86,105,150,152,160,85,85 <1B1> 

1370 DATA106,149,106,128,,,150,155,171,ISS,1 
71,175,175,190,255,253,250,249,234 <249> 

1580 DATA166,137,2,230,149,85,89,86,149,149, 

101.. 128.96.88.88.150.150.102....., <19> 

1390 DATA,,46,11,2,,,,,,191,170,149,149,149, 


149,149,150,255,191,106,91,90,88,B8 

1600 DATA88,232,2S4,191,235,190,43,2,,,130,2 

35,255,191,239,187,43,190,184,184 

1610 DATA190, 191,255,250,239, , , , , 160,250,255 

,175,165,41,9,9,9,9,170,255,101,101 

1620 DATASS,85,85,83,BS,170,128,128,128,128, 

128.128.128.128.. .......150.166.37 

1630 DATA37,41,41,10,9,86,86,149,149,101,89, 

85.149.. .128.128.106.91.107.191.47 

1640 DATA47,190,190,250,248,250,249,186,160, 

128, ,, ,170,85,250,175,10,, 10,165,85 

1650 DATA85,255,191,171,155,86,83,101,149,25 

5,255,255,254,255,191,107,190,160 

1660 DATA248,254,254,190,250,250,168,,,,,,,, 

.2,,.102,155,43,47,47,47,42,47 

1670 DATA25S,255,255,239,191,235,254,171,229 

, 229,229,229,170,149,234 ,128,85,86 

1680 DATA85,85,170,85,170,,90,165,85,106,149 

,106,128,,86,89,166,B8,160,,,,107 

1690 DATA130, , , , , , ,248, 160, ,,,,,,,,,,,,,,,,, 

Min 1 ®i ..*«.« »254,168, ,,,,,,,,,,, 

1700 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
,,,,,,,-1 

1710 REM BILDGRAPHIK (MITTE) 

1720 DATA32144,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

,,,,,,,,,,,250,250,250,250,250,250 

1730 DATA250,250,252 , ,,,,,,,,,,,,,,,,,,,,,, 1 

80,250,250,250,250,250,250,250,250 

1740 DATA171,231,50,51,58,59,60,230,253,,,,, 

• ••»•••••••<••••« »255,171,110,111 

1750 DATA118,119,120,179,230,171,171,240,240 
,240,240,240,171,253,,,,,,,,,,,,,,, 

1760 DATA ,,,,,,, 255,171,171, 240,240,240,178, 
240,171,251 ,251,251,251 ,251,251,251 

1770 DATA251,254,...........170,2 

51 ,251,251 ,251,251,251,251,251 ,-l 
1780 REM ANZEIGE (SATZ 1> 

1790 DATA46744,171,251,187,171,191,191,191,2 

55,-1 ,24976,255,255,187,187,187,251 

1800 DATA171,255,255,255,171,251,187,187,187 

,255,-1,25040,191,191,187,251,175 

1B10 DATA187,187,253,239,239,171,255,239,239 

,239,255,255,255,171,1B7,187,191 

1820 DATA171,255,-1,46736,255,255,255,239,25 

5.239.255.255, -1,25456,171,255,191 

1830 DATA171,251,251,171,255,255,255,171,191 

,191,255,171,255,-1,25520,191,191 

1840 DATA171,251,187,187,187,255,255,255,239 

,255,239,239,239,255,255,255,175 

1850 DATA187,191,255,191,255,-1,26496,171,25 

1,187,187,187,187,171,255,239,191 

1860 DATA239,239,239,239,171,255,171,255,251 

,171,191,191,171,255,171,255,251 

1870 DATA233,251,251,171,255, 191 ,255, 191,175 

, 171,239,239,255, 171 ,255, 191,171 

1880 DATA251,251,171 ,255,171,255, 191,171,187 

,1B7,171,255,171,191,251,251,239 

1890 DATA239,239,255,171,191,187,171,107,187 

,171,255,171,191,187,171,251,251 

1900 DATA171,255,,253,,255,,255,255,255,255, 

255.. 253..255....255.3.243.51.51.51 

1910 DATA51,51,51,51,51,51,51,51,51,51,51,51 
,243,3,255,,,204,204,204,204,204 
1920 DATA204,204,204,-1,46336,,255,192,207,2 
04,204,204,204,-1,23936,204,204,204 
1930 DATA207,192,255 , , , 255,255,255,255,255,2 

55.255.255, -1,26000,253,255,255,255 

1940 DATA255,239,255,255,255,235,187,235,187 

,1B7,187,255,-1 

1950 REM SCHRIFT (SATZ 2) 

1960 DATA34816,,,,,,,,,252,12,204,252,204,20 

4.204.. 240.12.204.252.204.204.240, 

1970 DATA60,192,,192,192,192,60,,240,12,204, 

204.204.204.240.. 252..192.240.192 

1980 DATA192.252,,252,,192,240,192,192,192,, 

252.192.. 192.204.204.252..204.12 

1990 DATA204,252,204,204,204,,252,48,48,48,4 

8, ,252, ,12,, 12, 12, 12,204,252, ,204 

2000 DATA12,204,240,204,204,204,, 192,192, 192 


<27> 
< 122 > 
<30> 
< 120 > 
< 106> 
<71 > 

< 198> 

< 170> 

< 20 > 

<189> 

<41 > 

<242> 

<155> 

<247> 

< 124 > 
<116> 

< 197> 
<34> 

<65> 

< 141 > 

<27> 

< 187> 

< 179> 
<98> 
<207> 
< 6 > 
<228> 
<213> 
<207> 
<73> 

< 191 > 
<63> 
<201 > 
<78> 
<123> 

< 111 > 

< 179> 

<178> 

<73> 

< 150> 

< 104 > 


5/SS 


Compute mit 


hi 

















PROGRAMME 


,192,,192,252,,204,252,204,204,12 

2010 DATA2B4,204,,252,12,204,204,204,204,204 

,,252,12,204,204,204,204,252,,252 

2020 DATA12,204,252,192,192, 192, ,252, 12,204, 

204,204,252, 12, ,252, 12,204,240,204 

2030 DATA204,204,,252,,192,252,12,12,252,,25 

2.. 4B,48,48,48,48,,204,204,204,204 

2040 DATA204,12,252,,204,204,12,204,204,204, 
4B,,204,204,12,204,204,252,204, 

2050 DATA204.204,12,4B,48,204,204,,204,12,20 

4.204.48.48.48.. 252..12.48.192.192 

2040 DATA2S2,,,58,232,232,234,234,235,232,,1 

40.232.232.140.128.140.232.. 14.58 

2070 DATA232,234,232,232,232,,128,160,232,14 

8,232,232,232, ,232,234,234,234,232 

2080 DATA232.232,,232,232,148,148,168,232,23 

2.. 58.232.232.235.232.232.58..160 

2090 DATA232,,168,232,232,160,,232,232,232,2 

32.232.232.234.. ......168..234.58 

2100 DATASS,58,58,58,234,,128,3,3,,,3,128,,2 

34.163.160.234.3.163.234.. 131.160, 

2110 DATA128,140,140,128,,170,58,58,58,58,58 

,58,,163,3,3,3,3,3,3,,170,140,140 

2120 DATA170,140,140, 170, , 140, , , , , , 160,, , , ,2 

34,.252,,,,,,,,,,48,,252, 12 

2130 DATA204,2a4,204,2a4,2S2,,48,192,48,48,4 

8.48.252.. 252..12.252.192.192.252, 

2140 DATA252,,12,60,12,12,252,,192,,192,240, 
2S2,4S,4B,,252,,192,252,12,12,252, 

2150 DATA2S2,,192,252,204,204,252,,252,192,1 

2,12,48,48,4B,,252,12,204,48,204 

2160 DATA204,252,,252,192,204,252,12,12,252, 

. .... .7,24,32,,,,,,192,48,B,67,70 

2170 DATA140,140,140,140,70,67,196,100,2,2,2 

,2,100,196,32,24,7.8,48,192,, 

2180 DATA,,,—1 

2190 REM BILDGRAPHIK (TITEL) 

2200 DATA43168,,,1,2,3,4,5,6,7,8,9,10,11,12, 

13,14,15,16,17,18,19,20,21,22,23,24 

2210 DATA2S,26,27,28,29,30,31,32,33,34,35,36 

,,,,,37,3B,39,40,41,42,43,44,45,46 

2220 DATA47,48,49,SO,51,52,53,54,55,56,57,58 

,59,60,61,62,63,64,65,66,67,68,69 

2230 DATA70,71,72,,,,,73,74,75,76,77,78,79,8 

0,81,B2,83,84,85,86,87,B8,89,90,91 

2240 DATA92,93,94,95,96,97,98,99,100,101,102 

,103,104,105,106,107,108,,,,,109 

2250 DATA110,111,112,113,114,115,116,117,118 

,119,120,121,122,123,124,125,126 

2260 DATA127,128,129,130,131,132,133,134,135 

,134,137,138,139,140,141,142,143 

2270 DATA144,,,,,145,144,147,148,149,150,151 

,152,153,154,155,154,157,158,159 

2280 DATA160,161,162,163,164,165,144,167,168 

,169,170,171,172,173,174,175,176 

2290 DATA177,17B,179,180,,,,,181,182,183,184 

,185,186,187,188,189,190,191,192 

2300 DATA193,194,195,196,197,19B,199,200,201 

,202,203,204,205,204,207,208,209 

2310 DATA210,211,212,213,214,215,216,,,,,,,, 


2320 DATA,,,,,,,,,,,64,65,66,67,68,69,70,71, 
72,73,74,75,76,77,78,79,,,,,,,,,,,, 

2330 DATA,,,,,,,,,,,,80,81,82,83,84,85,86,87 
,88,89,90,91,92,93,94,95,... 


2340 DATA,,,,,,,,,,,,,96,97,98,99,100,101,10 

2,103,104,105,106,107,108,109,110 

2350 DATA111,,,,,,,,,,,,,,,,,,,,,,,,,112,113 

,114,115,116,117,118,119,120,121 

2360 DATA122,123,124,125, 126,127, ,,,,,,,,,,, 

imtmmn 128, 129 , 130, 131,132 

2370 DATA133,134,135,136,137,138,139,140,141 

,142,143,,,,,,,,,,,,,,,,,,,,,,,, 


2380 DATA144,145,146,147,148,149,150,151,152 
,153,154,155,156,157,158,159,, , , , , , 

2390 DATA,,,,,,,,,,,,,,,,,160,161,162,163,16 
4,165,166,167,168,169,170,171,172 
2400 DATA173,174,175,,,58,59,,,,,,,,,,,,,,,, 
176,177,178,179,180,181,182 


< 8 > 

<9> 

<22S> 

<38> 

< 132> 
<47> 
<51 > 
<14> 
<159> 
<51 > 
<79> 
< 22 > 
< 20 > 
<2B4> 
<37> 

< 157> 
< 12 > 

< 104 > 
<162> 
<94> 

<143> 

<227> 

<4B> 

<20S> 

< 115> 
<139> 
<253> 
<99> 
<72> 
<233> 
<110> 

< 143> 
<63> 
< 1 > 
<226> 
< 11 > 

< 125> 
<59> 
<134> 
<225> 

< 142> 


2410 DATA183, 184, 185, 186,187,188,189,190, 191 
,,,60,61,,49,57,56,55,,,,,,,,,,,,,, <25> 

2420 DATA,192,193,194,195,196,197,198,199,20 
0,201,202,203,204,205,206,207,,,62 <1S0> 

2430 DATA63,,,,,,,,,,,,,,,,,,,,,208,209,210, 
211,212,213,214,215,216,217,218,219 <81> 

2440 DATA220.221,222,223,,,20,47,12,1,14,1,1 
8,9,•,224,225,226,227 <107> 

2450 DATA228,229,230,231,232,233,234,235,236 

,237,238,239,,,,,,,,,,,,.,,,,,, <4> 

2460 DATA,240,241,242,243,244,245,246,247,24 

8.249.250.251.252.253.254.255.. ..., <132> 

2470 DATA,,,,,,,,,,,,.......t..... t • . ••• 

,,,,,,,,,,,,,,,,,,,,,,,,,,46,,6,5 <157> 

2480 DATA21,5,18,,46,-1 <164> 

2490 REM BILD8RAPHIK (RANGLISTE) <22> 

2500 DATA34232,,,,,,,,,,45,,27,2B,29,30,31,3 
2,33,34,35,36,37,38,39,40,41,42,43 <140> 

2510 DATA44.45, 

.............................49,47 <113> 

2520 DATA,47,47,47,47,47,47,47,47,47,47,47,4 

7.47.47.47.47.. 48.48.48.48.48....., <100> 

2530 DATA.. 

...47,, 47,47,47,47,47 <49> 

2540 DATA47,47,47,47,47,47,47,47,47,47,47,,4 

8.48.48.48.48.. ..................., <154> 

2550 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,51 

,47,,47,47,47,47,47,47,47,47,47,47 <221> 

2560 DATA47,47,47,47,47,47,,48,48,48,48,48,, 

,,,,.,,,,,,.<246> 

2570 DATA,.,,,,,,, ,52,47, ,47,47,47,4 

7,47,47,47,47,47,47,47,47,47,47,47 <142> 

2580 DATA47,,48,4B,48,48,48, 
................................... <226> 

2590 DATA,,,53,47,,47,47,47,47,47,47,47,47,4 

7.47.47.47.47.47.47.47.. 48.48.48.48 <25> 

2600 DATA4S, , , . , , , 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, <13> 

2610 DATA,,4 

6.. 6.5.21.5.18..46,-1,-1 <20> 

ENDE DES LISTINQS 


Teil 2 


C—64 LISTING + CHECKSUMMEN (C VI.0) 


10 REM- 

11 REM > KOSMODROM < TEIL 2 

12 REM 

13 REM (C) T.LANARI 1987 

14 REM- 

110 PRINT“ I CLEAK i ”iPOKE56,74iPOKE52,74iPOKES 
3280,21P0KE532B1,2 

120 PRINTTAB(255)8PC(236)“< WH1TE >BITTE< SP4CE 
>ETHASC SPACf >GEDULDC SP4CE >!" 

124 i 

125 REM DATEN LESEN 

126 l 

130 READAiIFA<OTHENEND 
140 READBiIFB<0THEN130 
150 POKEA.BiA-A+l:GOTO140 
160 : 

1000 REM TITELSCHRIFT (SATZ 3) 

1010 DATA40960,,,,,,,,,95,94,94,94,94,23,23, 
23,192,191,170,170,170,170,170,170, 

1020 DATA,192,193,193,193,197,197,,,,127,122 
,122,234,234,,,,,252,172,172,176,, 

1030 DATA, , ,5,23,23.252, 171,170, , , , , , ,2 

52,171,,,,,,,,240,,,,,,,,,,,,,,,,, 

1040 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 


1050 DATA, 


,15, 


1060 DATA,,,63,234,,,,,,63,234,170,,,,,,80,2 

12,213,,,,15,58,58,58,58,,,,80,212 

1070 DATA212,181,181,,,,,,,,,,3,3,14,14,58,5 

8,234,245,181,181,181,181,1B1,181 

1080 DATA181,23,23,23,5,5,5,5,5,170,170,170, 

234,234,234,234,234,197,215,215,215 


<227> 

<99> 

< 155> 
<1B6> 
<231 > 

<ies> 

<70> 

<1B2> 

<7> 

< 1B4> 
<22B> 
<60> 
<1BB> 
<218> 
<56 > 

<62> 

<59> 

<46> 

<135> 

<54 > 

<7B> 

<139> 

<246> 


Compute mit 
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PROGRAMME 


1090 DATA222,222,222,250,234,170,170,170,170 


,171,171,171,176,176,192,192,192,, <9> 

1100 DATA,94,94,94,94,94,94,94,94,170,170,17 
0,170,170,171,172,172,170,170,170 <25> 

1110 DATA170,170,250,94,23,172,172, 171,171,1 

71.171.171.171.. 1.5.5.23.23.23.23 <143> 

1120 DATA95,122,234,234,170,170,170,170,,255 

,170,170,170,170,170,170,,,240,172 <!67> 

1130 DATA172,172,172,172,,,31,122,122,122,12 

2.122.. ..192.192.176.177.177....31 <143> 

1140 DATA122,122,234,234,,,,,192,193,193,199 

,,,,,127,234,234,170,,,,,253,171 <240> 

1150 DATA171,170,,,,,3,67,67,211,,,,255,170, 

170.170.170.. .63.234.170.170.170 <160> 

1160 DATA170,,,64,208,180,180,173,173,,,63,5 

8.58.58.58.58.. 255.170.170.170.170 <215> 

1170 DATA175,244,245,173,171,171,170,170,234 

,58,,64,80,80,212,212,212,212,58,58 <23> 

1180 DATA234,234,234,234,234,234,170,170,170 
,170,170,170,175,181,170,170,170 < 109> 

1190 DATA170,170,170,234,58,181,181,181,181, 

181,1B1,181,181,58,58,58,58,58,58 <72> 

1200 DATASB,58,173,173,171,171,171,170,170,1 
70,64,67,83,94,94,250,170,170,234 <74> 

1210 DATA170,170,170,170,170,170,170,181,181 
, 181,181,181,181,181,181,5,5,5,5,5 <232> 

1220 DATA5,5,5,234,234,234,234,234,234,234,2 
34,250,250,234,234,234,170,170,174 <143> 

1230 DATA172,172,172,176,176,176,192,192,,,, 

«11«,94,94,94,94,94,94,94,94,172 <244> 

1240 DATA172,172,172,172,172,172,172,23,23,2 
3,23,23,23,23,23,171,171,171,171 <40> 

1250 DATA171,171,171,171,23,23,23,23,23,23,2 
3,23,170,171,171,171,170,170,170 <222> 

1260 DATA170.2S5,1,,,252,171,170,170,172,240 
,,,,192,176,172,122,122,122,122,122 <0> 

1270 DATA122,122,122,175,170,170,170,234,234 
,250,250,170,170,170,170,170,186 <218> 

1280 DATA250,2S0,199,199,199,199,199,199,199 
,199,170,170,171,173,172,172,172 <47> 

1290 DATA172,170,170,234,122,58,58,58,58,211 
,211,211,211,211,211,211,211,170 <93> 

1300 DATA175,173,173,173,173,173,173,250,78, 

14.3.3.3.3.3.173.173.173.173.173 <10> 

1310 DATA173,173, 173,58,58,5B,SB,58,58,58,58 
,208,208,208,208,208,255,170,170,58 <242> 

1320 DATA58,58,58,58,234,170,171,212,212,212 
,212,212,212,212,80,234,234,234,234 <7B> 

1330 DATA234,234,234,234,212,212,212,212,212 
,212,212,212,58,58,58,58,58,58,58 <91> 

1340 DATA58,181,181,181,181,181,181,181,181, 

SB,58,SB,58,SB,58,5B,58,170,170,186 <207> 

1350 DATA186,190,190,183,183,170,170,170,171 
,171,171,173,173,234,234,234,234 <182> 

1360 DATA234,234,234,234,181,181,181,181,181 
,181,181,181,5,5,5,5,5,5,5,5,234 <25> 

1370 DATA234,234,234,234,234,234,234,174,171 
, 171,170,170, 170, 170, 1731, 192, , , 192 < 195> 

1380 DATA192,176,176,172,,,,,,,,,94,94,94,94 
,94,94,94,94,172,172,172,172,172 <253> 

1390 DATA172,172,172,23,23,23,23,23,23,23,23 
,171,171,171,171,171,171,171,171,23 <116> 

1400 DATA5,5,1,,,,1,170,234,235,124,,,,87,17 
0,170,250,30,30,30,30,250,172,172 <175> 

1410 DATA172, 172,172,172,172,172, 122, 122, 122 
,122,122,122,122,122,223,192,192 <52> 

1420 DATA192,192,192,192,192,122,122,122,122 
,122,122,122,122,199,199,199,199 <169> 

1430 DATA199,199,199,199,172,172,172,172,173 
,171,170,170,58,58,58,58,122,234 <101> 

1440 DATA170,170,211,211,211,211,211,211,211 
,211,173,173,173,173,173,173,175 <159> 

1450 DATA170,3,3,3,3,3,14,78,250,173,173,173 
,173,173,173,173,173,58,58,58,58,58 <63> 

1460 DATA58,58,58,170,250,222,222,222,211,21 

1.211.171.189.181.181.181.173.173 <1> 

1470 DATA173,80,64,,,,64,64,64,234,234,234,2 
34,234,234,234,234,212,212,212,212 <211> 

1480 DATA212,212,212,212,58,58,58,58,58,58,5 


8,58,181,181,181,181,1B1,181,181 

1490 DATA181,58,58,58,58,58,58,5B,58,181,181 

,181,181,181,181,181,181,245,, , , , , 

1500 DATA,234,234,234,234,234,234,234,234,18 

1,181,181,181,181,181,181,181,5,5,5 

1510 DATAS,23,23,23,23,234,234,234,234,170,1 

70,170,170,234,234,250,250,222,222 

1520 DATA215,215,172, 171,171,170, 170, 170, 170 

,170, , , , 192, 192, 176, 176,172,94,94 

1530 DATA94,94,94,94,94,94,172,171,170,178,1 

70,170, 170, 170,94,250, 170, 170, 170 

1540 DATA170,170,170,171,171,171,171,171,171 

,172,172,5,23,23,23,23,23,23,5,254 

1550 DATA170,170,170,170,170,175,240,170,170 

,170,170,170,170,255,,172,172,172 

1560 DATA176, 176, 192, , , 122, 122, 122, 122,122, 1 

27.. .192.192.192.192.192....122.122 

1570 DATA122,122,127,,,,199,193,193,192,,,,, 

170.234.234.127.. ...170.171.171.253 

1580 DATA,,,,211,67,67,3,,,,,170,170,170,170 
,255,,,,170,170,170,170,234,63,, 

1590 DATA173,173,188,180,208,64,,,58,58,58,5 

8,58,62,3, ,208,208,208,20B,208,208 

1600 DATA208,,235,235,235,235,58,58,5B,15,80 

,80,80,80,212,212,212,212,234,234 

1610 DATA234,234,234,234,58,58,181,175,170,1 

70, 170,170,170, 170,58,234, 170, 170 

1620 DATA170, 170, 170, 170,181,181,1B1,181,181 

,181,181,181,58,58,58,58,58,58,SB 

1630 DATA58, 1B1,181,181,181,181,181,181,181 , 

,,,,,,,,234,234,234,234,234,234,234 

1640 DATA234,181,181,181,181,181,181,181,181 

,23,23,23,94,94,94,94,95,170,170 

1650 DATA170,170,170,170,191,192,197,197,193 

,193,193,192,,,234,234,122,122,127 

1660 DATA, ,, 172,172,172,252, , , , ,23,23,5, , , , , 

,170,171,252.171,252,,,,,,,240 

1670 DATA,,,,,. 


1680 DATA, 


i»234,63,,,,,,, 1 
» * » 3 ® 
181,181,181,245,,, 


1690 DATA,,,,,,,,,,,15,,,, 

70,234,63, , , , , ,212,212,80, 

1700 DATA58,58,63,,,,,181 1 
,,,,,,,,,234,234,234,234,234,234 
1710 DATA254.3,181,181,181,181,181,1B1,181,2 
45,-1 

1720 REM KÜBELN 

1730 DATA42944.60,,,126,,,126,,,126,,,126,,, 
60,-1,44024,159,159,159,-1 
1740 REM SPIELER-RAUMSCHIFF 

1750 DATA18944,,,,,,,,32,,,32,,128,16B,B,160 

, 168,40,234, 170, 172,58, 170, 176, 14 

1760 DATA170,192,3,171,,64,236,4,80,116,20,8 

5,85,84,21,85,B0,5,85,64,1,85,,,84 

1770 DATA,,16,,,,,,,,,,,,,,,,,,,8,,128,40,,1 

60.40.. 232.168.8.42.170.168.58.170 

1780 DATA172,14,170,240,66,175,,83,180,,84,2 

12,4,21,85,84,21,85,84,5,85,80,1,85 

1790 DATA,1,80,,,64,,,,,,,,,,,,,,,,,,32,2,,3 

2.10.. 40.43..40.168..58.168.40.10 

1800 DATA170,168,10,170,188,30,175,192,18,24 

5.. 23.84..21.84.20.5.85.84.5.85.84 

1810 DATA5,85,64,1,80,,1,,,,,,,,,,,,,,,»32,, 

,40,2,,40,42,,40,171,,42,168,,58 

1820 DATA172,,26,170,160,26,170,168,26,175,2 

52.31.245.. 21.84..21.84..5.85.80.5 

1830 DATA85,84,5,85,84,5,80,,,,,,,,,,,,,,,,, 

,32, , ,40,, ,40,2, ,40,43, ,42, 168, ,42 

1840 DATA172, ,42,160, ,42, 170, 128,42, 170, 160, 

63.255.240.21.84.. 21.84..21.80..21 

1850 DATA85,64,21,85,80,21,85,80,,,,,,,,,,,, 

,,8,,,10.,,10,,,18,2,128,10,42,192 

1860 DATA42,170,,42,171,,42,172,,42,170,128, 

63.234.160.21.127.240.21.85.. 21.85 

1870 DATA,21,84,,21,85,64,21,85,80,,21,80,,, 
»»»»»»»*»»»2,128,,2,128,,10,192,,10 
1880 DATA2,128,10,170,192,42,171,,42,172,,17 
0,176,,250,169,64,15,234,128,5,127 


Compute mit 


<234> 

<92> 

<15> 

< 146> 

< 188> 
< 212 > 

< 178> 
<205> 
<B9> 
<191> 
<252> 
<43> 
<72> 
<3> 

< 118> 
<93> 
<73> 
<109> 
<235> 
<253> 
<9> 

< 125 > 

< 0 > 

< 101 > 

<65> 

<37> 

< 22 > 

<B3> 

< 14> 
<10B> 
<229> 
< 202 > 

< 188> 
< 102 > 
<24> 

< 136> 
<39> 
<46> 

< 192> 
< 0 > 
<89> 

43 
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PROGRAMME 


1890 DATA192.21,84,,21,B4,,83,80,,83,84,,3,8 

5.64.. 21.64...............160..2 

1900 0ATA176, ,2,12B, ,10,128,, 10,170,128,42,1 
70, 192,170, 173, ,234,176, ,62, 160, ,7 
1910 DATA16B,,3,230,64,21,93,64,83,85,,83,80 
,,21,80,,1,84,,,83,,,3,,,,,,,,,,,, 

1920 DATA40,,,172,,2,176,,10,128,,42,168,,17 
0,170,128,234,171,192,58,188,,14 
1930 DATA128,,7,160,,21,232,,85,123,64,83,83 
,64,21,84,,5,64,,1,80,,,84,,,20,,, 

1940 DATA,,,,,,,,,10,,,171,,2,172,,42,176,,1 

70.160.. 234.170..58.170.128.10.191 

1950 DATA192,14,128,,22,128,,87,160,,85,245, 

,21,85,64,5,85,64,5,64,,1,64,,1,80 

1960 DATA,,80,,,,,,,,,,,,,,,,42,128,10,171,1 

92.170.188.. 234.160..42.168..38.170 

1970 DATA,10,254,128,10,87,192,94,148,,86,14 

4.. 23.212..21.83..3.83.64.3.1.64.3 

1980 DATA64,,1,64,,1,64,,,,,,,,,,,,,,,,42,16 

0,42,170,176,42,175,192,42,168,,42 

1990 DATA170,,SB,234,,10,62,144,26,87,208,26 

,85,64,27,84,,29,85,,21,85,,3,21,64 

2000 DATA5,1,64,5,,,3,,,4,,,,,,,,,,,,,,, ,42, 

170,160,42,170,176,42,173,192,42 

2010 DATA160, ,42,168, ,43,232, ,41,126,80,41,8 

7.80.45.83.64.53.80.. 21.84..21.84, 

2020 DATA20,21,,20,1,,20,,,16,,,,,,,,,,,,,,, 

,,,,10,160,,10,170,168,10,170,172 

2030 DATA10,175,240,42,168,,43,168,,41,234,, 

41,126,84,45,87,84,33,85,80,21,84, 

2040 DATA21,84,,20,85,,20,21,,20,1,,16,,,,,, 

• imm, ,2, , ,2, 160, ,10, 170, 126, 10 

2050 DATA170,168,10,171,232,43,168,60,41,232 

,,43,122,,37,94,64,33,87,84,S,B3,B4 

2060 DATA21,84,20,20,84,,20,21,,16,3,,16,1,, 

..,.i,,,•..■,,,,,128,,2,160,,2,170 

2070 DATA, 10, 170,160,42,170, 168,43,171 ,248,1 

72.232.12.177.104.. 193.121..3.93.80 

2080 DATA21,83,84,21,83,84,84,84,4,80,20,,64 

,20,,,4,,,,,,,,,,,,,,,,,,,32,,,168 

2090 DATA,2,170,,10,170,128,42,170,160,175,1 

71,232,176,168,56,192,236,12,1,101 

2100 DATA,3,117,64,21,83,80,83,83,84,80,84,2 

®,64,84,4,,16,,,16,,,,,,,,,,,,,,,, 

2110 DATA,,8,,,42,,2,170,,42,170,128,170,170 

, 160, 191,171,160, 192, 172,232, , 163 

2120 DATA56,1,181,12,21,213,64,83,83,80,83,8 

5.80.64.84.84.. 80.20..80.4..64..., 

2130 DATA,,,,,,,,,,,,,,2,,,42,,10,170,128,17 
0,170,128,173,170,12B.240,171,160, 

2140 DATA173,160,2,181,224,6,213,96,87,83,11 

2.85.85.64.80.83.80.. 84.80.1.80.80 

2150 DATA1,64,16,1,,16,,,,,,,,,,,,,,,,,,,,,4 

2,128,170,170,128,234,170,128,63 

2160 DATA234,128, , 170,160, , 171,160,2,173,160 

,86,245,160,87,85,224,21,85,112,,85 

2170 DATAB0,,85,80,1,84,80,1,80,80,1,,80,,,1 

6.. ...............42.170.160.58.170 

2180 DATA160,15,234,160,,42,160,,170,160,,17 
5,160,22,243,160,23,85,160,5,83,224 
2190 DATA,21,112,,85,80,,85,80,1,80,80,1,,B0 
, , , 80 ,,,16,,,,,,,,,,,,,,,,, 42 , 160 , 

2200 DATA58,170,160,13,234,160,,170,160,2,17 

0,160,2,174,176,26,242,128,31,86 

2210 DATA144.S.86, 144, ,87, 144,1 ,85,208,1 ,83, 

B0,5,81,64,3,1,64,,1,64,,1,64,,,64 

2220 DATA,,,,,,,,,,,,,10,160,,15,170,128,,23 

0,168,,42,172,,170,160,2,170,176,10 

2230 DATA254,128,15,86,128,,90,212,,26,84,,9 

5.80.1.65.80.5.83.64.5.1.64.. 3.64, 

2240 DATA5,,,5,,,,,,,,,,,160,2,128,,3,168,,, 

234.. .58.160..42.168.2.170.172.10 

2250 DATA170,176,15,230,128,,10,192,,10,80,, 

43,84,1,125,84,5,85,BO,5,85,64,,5 

2260 DATA64,,5,,,21,,,20,,,,,,,,,,,40,,160,, 

,232,,,58,,,10,128,,170,160,10,170 

2270 DATA16B,13,170,172,,250,176,,10,192,,43 

,64,,173,80,5,243,84,5,85,84,,85,60 

2280 DATA,5,64,,21,,,64,,,80,,,,,,,,,,,10,,4 


0,,,58,,,10,,,10,128,10,170,128,14 

2290 DATA170,160,3,234,168,,58,172,,42,240,, 

171,64,6,189,64,7,213,80,1,85,B4, 

2300 DATA21,84,,21,B0,,83,,1,84,,1,64,,,,,,, 

,,,,2,,10,,,10,,,14,128,10,2,128,14 

2310 DATA170, 128,3,170, 160, ,234,160, ,58,168, 

3.170.188.10.175.192.13.245.64.. 85 

2320 DATA80, ,85,80, ,21 ,B4, ,83,84,5,83,64,3,8 

B,«,,,,,,,,,,,,«,,128,,2,128,,2,128 

2330 DATA10,2,128,14,162,128,2,170,160,3,170 

,160,,234,160,10,170,160,42,175,240 

2340 DATA63,245,80,1,85,80, 1,85,80, ,83,80,3, 

85.80.21.85.80.21.80.. ..........., 

2350 DATA,,,,,32,,,160,2,,160,3,160,160,,170 

,160,,234,160,,42,160,10,170,160,42 

2360 DATA170,160,63,255,240,,B3,80,,85,80,,2 

1.80.5.85.80.21.85.80.21.85.80.. ., 

2370 DATA,,,,,,,,,,,,,,32,2,,160,2,160,160,3 

, 168, 160, ,170,160, ,234, 176,42,170 

2380 DATA144,170,170,144,255,234,144,1,127,2 

08,,85,80,,85,80,21,85,64,85,85,64 

2390 DATAB5,85,64,,21,64,,,,,,,,,,,,,,,,,,,, 

2.. 32.2.12B,32,3,160,160,,168,160 

2400 DATA160,170,176,170,170,12B,250,170,128 

,15,234,208,1,126,16,,87,80,80,83 

2410 DATA80,83,85,64,85,85,64,5,85,64, ,21, , , 

* ,,,,,,,•< « t, f128,,,160,8, 

2420 DATA160.40,128,168,172,170,170,160,234, 

170.176.62.170.192.3.234.4.. 123.20 

2430 DATA64,92,B4,85,85,80,85,B5,80,21,83,64 
,1,85,,,21,,,4,-1 
2440 REM STRAHL 

2450 DATA45312,,,,3,3,,3,3,,3,3,,3,3,,3,3,,3 

,3,,3,3,,3,3,,3,3,,,,,,,,48,,,48 

2460 DATA192, ,48,192, , 192, 192, , 195, , , 193, ,3, 

3.. 3.12..3.12...12.....12...12.48, 

2470 DATA48.48,,4B,192,,192,192,3,3,,3,12,,1 

2.12.. 12.48...48.....3...12...4B,48 

2480 DATA,48,192,,193,,3,3,,12,12,,,48,,,192 

,,,,,,,,3,,,12,,,48,48,,192,192,3,3 

2490 DATA,12,12,,48,48,,,192,,3,,,,,,,,,3,,, 

12.. .48.48.3.192.192.12.3..48.60., 

2500 DATA192,,3,,,,,,,,,,,,3,192,,60,,,192,, 

15.. 240.240.15...48..3.192..60..., 

2310 DATA,,,,,,,,,,13,192,3,240,,232,,,,3,24 
0,,232,,63,,,,,,,,,,,,,,,,,,, ,63 

2520 DATA2S5,240.63,233,240,,,,,,,, 

iMiviiiii 63 1 f f 1 252 § 1 13| 240 1 252 11 y3 

2530 DATA240,,, 15,192, ,,,,,,,,,, ,60, , ,3, 192, 

,,48,,240,13,,15,,240,,192,,,60,,,3 

2340 DATA192,,,,,,,,,3,,,,192,,4B,60,,12,3,, 

3y 192 y 192 y y48 y48 yyl2yyy3yyyyyyy3yy 

2550 DATA,192,,48,48,,12,12,,3,3,,,192,192,, 

48.48.. 12...3........192...48..12 

2560 DATA12,,3,3,,,195,,,48,192,,48,48,,12,, 
,3,,,,,48,,12,48,,12,12,,3,12,,3,3 
2570 DATA,,192,192,,48,192,,48,48,,12,48,,12 
,,,,,12,,3,12,,3,12,,3,3,,,195, , 

25B0 DATA195,,,192,192,,48,192,,48,192,,48,, 

« *if,3,3,,3,3,,3,3,,3,3,,3,3,,3,3, 

2590 DATA3.3,,3,3,,3,3,,,,,192,,,195,,,193,, 

3.3.. 3.12..3.12..12.12..12.48., 12 

2600 DATA4B,,,48,,,,,48,,,48,192,,192,192,,l 

95.. 3.3..12.12..12.48..48.4B,,48 

2610 DATA192,,,192,,,,,,,,12,,,48,,,192,192, 

3.3.. 3.12..12.48..48.48...192..3., 

2620 DATA, , , , , ,3,,, 12,, ,48,48, , 192, 192,3,3, , 

12.12.. 48.48...192..3............3 

2630 DATA,,12,,,240,48,3,,192,12,13,,48,48, , 

,192,,3,,,,,,,,,,,,,240,,15,,,48,,3 

2640 DATA192,60,60,3,192,,12,,,240,,13,,,,,, 

,,,,,,,,,3,240,,252,,63,,,,,252,,63 

2650 DATA,15,192,,,,,,,,,,,,,,,,63,255,240,, 

,,,,,,,,63,255,240,,,,,,,,,,,,,,,15 

2660 DATA192,,,63,,,,252,63,,,,252,,,3,240,, 

,,«,,,,,,«15,,,,240,,,12,,60,3,192 

2670 DATA3,192,60,,4B,,,15,,,,240,,,,,,,,,3, 

,,,192,,48,48,,12,15,,3,,192,,240 

2680 DATA4B,,12,,,3,,,,,,,,,,3,,,,192,,48,48 


< 182> 
<19> 


Compute mit 


44 
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PROGRAMME 


,,12,12,,3,3,,,192,192,,48,40,,12, 

26*7(9 DATA, 92 , , 40,40, , 12,48, , 3 , 

12.. 3.3...192.192..40...12......, 

2700 DATA192,,40,192,,48,40,,12,48,,12,12,,3 
,3, ,,195,,, 192,192, ,48, 192, ,48,,, , 

2718 DATA48,,12,48,,12,48,,12,12,,3,12,,3,12 
,,3,3,,,195,,,195,,,192,-1 
2720 REM TABELLE 

2730 DATA4S120,0,251,246,244,242,242,238,238 

,238,238,238,242,242,244,246,251,0 

2740 DATAS,10,12,14,14,18,18,18,18,18,14,14, 

12,10,5,10,9,9,7,7,6,5,3,0,253,251 

2750 DATA250,249,249,247,247,246,247,247,249 

,249,250,251,253,0,3,5,6,7,7,9,9,-1 

2760 REM EXPLOSION 

2770 DATA30848,,,,,,,,,,,,,,,,,,,,240,,,48,, 

3.. .3.207..3.255..60.255.192.15.252 

2780 DATA192,3,207,,,60,,,,,,,,,,,,,,,,,,,,, 
,240,,12,51,,12 

2790 DATA207,192,3,207,,3,255,,252,255,192,1 

5.252.192.3.255.. 3.60.192..207..3 

2800 DATA60,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

240.. 240.240.12.51.240.12.195.192.3 

2B10 DATA51,,3,255,,204,207,192,15,51,192,3, 

255.. 15.252.240.15.207..3.192..15 

2820 DATA15,,15,60,,,,,,,,,,,,,,,,,,, ,60,3,1 

92.60.48.192.252.48.. 192....12.192 

2830 DATA,12,207,,48,255,,3,63,192,51,12,192 
,207,207,48,15,63, ,15,255,60,48,48 
2840 DATA,3,192,,,60,192,60,,,60,60,,,,,240, 
imn IS, ,63, 195, ,60, 192, ,240, , , , , 

2850 DATA, 12,192,, 12,207, ,51,15,192,3,15,48, 
63,3,192,207,192,48,63,63,192,12,63 
2860 DATA60,48,60,,3,192,,,60,192,60,,,60,60 
« . . > ,240, , , , , , ,207, , 15, , ,60, , , ,4B, 

2870 DATA,51,,,12,,,204,3,192,12,3,240,252,3 
,192,63,,240,252,,,48,,12,,15,207, 

2880 DATA15, , 192,12, , ,60, ,3, , , , , 192,48, ,48, , 

,48,48,,,240,,,15,192,,,192,,,,,,48 

2890 DATA,240,192,,240,204,,240,240,,48,60,, 

,240,,48,192,,,,,3,,,3,,,,,3,192,,3 

2900 DATA192,3,3,,,,192,,,,,,,,,,240,,,3,,,, 

,,,,,60,192,,60,,,60,204,,12,192,, 

2910 DATA48,,,240,,12,192,,,,,,,,,,,3,,,,,,2 

40.. .240.12..192..............., 12 

2920 DATA,,63,192,,15,,,12,48,,,,,,192, , ,48, 
,,192,,3,192,,,,,,,,,,,,,,,,,,,,,12 
2930 DATA,12, 

2940 REM SCHRIFT 

2950 DATA,,,,,,,,,59,171,128,,152,,43,171,,4 

2.170.. 58.171.128.......58.187.128 

2960 DATA8,128,128,42,179,,42,162,128,57,58, 

128.. ............................, 

2970 DATA,,,16,84,B4,117,253,253,213,93,93,1 

17,221,221,117,221,221,253,253,253 

2980 DATA84,84,84,,,,,,,,,,,,,,,,,,,,,,,,,,, 

,1)1,1(1111111,,,84,84,84,253,253 

2990 DATA253,85,93,93,125,221,221,93,221,221 

,253,253,253,84,84,84,,,,,,,,,,,,,, 

3000 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,64,84, 

84,209,253,253,208,93,93,245,221 

3010 DATA221,253,221,221,117,253,253,84,84,8 

4 ...«.... 

ENDE DES LISTINGS 


C—64 LISTING + CHECKSUMMEN (C VI.0) 


10 REM- 

11 REM > KOSMODROM < TEIL 3 

12 REM 

13 REM <C> T.LANARI 1987 

14 REM- 

110 PRINT” I C LEAR } " i P0KE56,74! P0KE52 , 74 1 P0KE5 
3280,2iP0KE53281,2 

120 PRINTTAB<255)SPC<236 )“C UHITE iBmEL SPACE 
)ETWASt SP4CF >GEDULD< SP4CP ! •• 

124 l 


<135> 

<9> 


<146> 

<233> 


<7> 

< 143> 

< 127> 


<227> 
< 116> 
< 155> 
<1B6> 
<231 > 


<70> 

<182> 


125 REM DATEN LESEN 

126 t 

130 READAtIFA<0THENEND 
140 READBiIFB<0THEN130 
150 POKEA,BlA“A+1iGQTO140 

160 i 

1000 REM UFO'8 

1010 DATA26624,,,,,8,,,40,,,168,,42,170,,58, 

186.128.14.170.160.3.171.240.. 172., 

1020 DATA176,,,196,,,20,,,84,,21,85,,5,85,64 
.1,85,B0,,84,,,80,,,64,,,,,,,,,,,, 

1030 DATA128,,,160,,,168,,2,170,160,10,186,1 

76.42.170.192.63.171.. .232...56., 

1040 DATA76, , ,80, , ,84, , 1 ,85,80,5,85,64,21,85 

...U4,,,20,,,4,,,,,,,,,,,,2,,,2, 128 

1050 DATA,2,170,160,2,170,176,2,186,192,10,1 

70, ,42, 170, ,63,250, , , 14, , 1 ,3, , 1 ,64 

1060 DATA, 1 ,85,80,1 ,85,64,1 ,85, ,5,85, ,21 ,85, 

, ,5, ,,1,,,,,,,,,,,,,2,,,10,,42,170 

1070 DATA,5B,170,,14,186,,2,170,128,2,170,16 

0,2, 191,240,2, 192, ,3, 1,, ,5, ,21,85, 

1080 0ATA5.85,,1,85,,1,85,64,1,85,80,1,64,,1 
,......,64,,,B0,,,84,,1,85 

1090 DATAB0,5,85,64,21,85, , ,84, , ,20, , , 196, , , 
176, ,, 172, ,3, 171 ,240, 14,170,160,58 
1100 DATA186,128,42,170,,,168,,,40,,,8,,, , ,, 
...... .^.. .20..,04,,21,85,,5,85,64 

1110 DATA1,85,80,,84,,,B0,,,76,,,56,,,232,,6 

3, 171 , ,42, 170, 192, 10, 186, 176,2,170 

1120 DATA160,,16B,,,160,,,128,,,,,,,,,,,,,1, 

,,5,,21,85,,5,85,,1,85,,1,85,64,1 

1130 DATA85,80,1,64,,1,3,,,14,,63,250,,42,17 

0,,10,170,,2,186,192,2,170,176,2 

1140 DATA170,160,2,128,,2,,,,,,,,,,,,,1,,,1, 

64.. 1.85.80.1.85.64.1.85..5.85..21 

1150 DATA85,,,5,,3,1,,2,192,,2,191,240,2,170 
,160,2,170,128,14,186,,58,170,,42 
1160 DATA170, , , 10, , ,2, ,,,,,,,,,,, ,8, , ,40, , 10 
,168,,14,186,,3,170,128,,175,192, 

1170 DATA176,,,192,,,4,,,20,,5,B4,,1,85,,,85 
.64,,B0,,,64,,,,,,,,,,,,,,,,,,,,, 

1180 DATA128,,,160,,,170,128,2,186,192,10,17 

1, ♦15,232,,,56,,,12,,,64,,,80, , ,85 

1190 DATA64,1,85,,S,B4,,,20,,,4,,,,,,,,,,,,, 
.......»2,,,2,130,128,3,170,192, 

1200 DATA187,,2,168,,10,250,,15,14,,,3,,1,,, 

1.65.64.. 85...84..1.84..5.5...1.., 

1210 DATA,,,,,,,,,,,,,,,,,,2,,10,10,,14,171, 

,3,184,,,170,,2,190,128,2,195,192,3 

1220 DATA, , , 1, ,5,5, , 1,84, , ,84, , ,85, , 1 ,65,64, 

1.. 64., 

1230 DATAB0, , ,85,64, 1 ,B5, ,5,84, , ,20, , ,4, , , 19 

2, , , 176, ,,175,192,3,170,128,14,186 

1240 DATA, 10, 168, , ,40, , ,8, , 

,..4.,,20,,5,84,,1,85,,,85,64,,80, 

1250 DATA,64,,,12,,,56,,15,232,,10,171,,2,18 

6.192.. 170.128..160...128........, 

1260 DATA,,,,,,,,,,,,1,,5,5,,1,84,,,84,,,85, 

,1,65,64,1,,,,3,,15,14,,10,250,,2 

1270 DATA16B,,,1B7,,3,170,192,2,130,128,2,,, 

|6S|64| |85 

1280 DATA,,B4,,1,84,,5,5,,,1,,3,,,2,195,192, 

2^190,128,,170,,3,184,,14,171,,10 

1290 DATA10,,,2,,,,,,,,,,,,,,,,,,,,,,32,,,16 

8 .. 2.170..10.170.128.42.186.160.234 

1300 DATA206,172,5B,2,176,15,19,192, ,84, , 1 ,8 

5.. 5.85.64.21.85.80.85.69.84.21.1 

1310 DATA80,5,1,64,,,,,,,,,,,,,,,,,,,,,32,,, 

168.. 2.170..10.186.128.42.206.160 

1320 DATA5B,2,176,15, 19,192, ,84, ,1 ,85, ,5,85, 

64.21.69.80.21.1.80.5.1.64.. ....., 

1330 DATA,,,,,,,,,,,,,,,,,,32,,,168,,2,186,, 

10.206.128.14.2.192.3.19.. ,B4,,1,85 

1340 DATA,5,69,64,5,1,64, 1 , 1 ,,,,,,,,,,,,,,,, 
.......,,,,5.1.64,21,1,80,85,69,84 

1350 DATA21,85,80,5,85,64,1,85,,,84,,15,19,1 
92,58,2,176,234,206,172,42,186,160 
1360 DATA10,170,128,2,170,,,168,,,32,,,,,,,, 
...... 128,,,,,,,,,,,,,5,1,64,21,1 


<7> 

<184> 

<228> 

< 60 > 

< 188> 
<21S> 
<231 > 


Compute mit 
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45 






















PROGRAMME 


1370 DATAB0.21,69,80,5,89,64,1,85,,,84,,15,1 

9,192,SB,2, 176,42,286, 168, 18, 186 

1380 DATA12S.2,170,,,168,,,32,,,,,,,,..1 

28.. .................1.1..5.1.64.5 

1390 DATA69.64,1,85,,,84,,3,19,,14,2,192,10, 

206.128.2.186.. .168...32........., 

1400 DATA,,,128,,,,,,,,,,,,,,2,,,42,128,2,17 

0,128,58,175,168,14,176,160,3,192 

1410 DATA168,,,171,,4,252,,85,,5,85,,85,85,6 

4.21.65.64.5.1.80.. 1.84..1.80. 

1420 DATA,,,,,,,,,,,,,, ,2, , ,42, 128,2, 175, 128 
,14,176, 160,3,192,160,,, 172,,4,240 
1430 DATA,85,,5,85,,21,65,64,5,1,64,,1,80,,1 
,64,,,,,,,,,,,,,,,,,,,,,,,,,,,2,, 

1440 DATA42,128,2,175,128,3,176,160,,192,176 
,,4,192,,85,,5,85,,5,65,64,1,1,64, 

1450 DATA1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

128.. 2.168..2.170.128.10.250.172.10 

1460 DATA14,176,42,3,192,234,,,63,16,, ,85, , , 
85,80,1,85,05,1,65,84,5,64,80,21,64 
1470 DATA,5,64,,,,,,,,,,,,,,,,,,,,,,128,,2,1 
68, ,2,250,128,10,14,176,10,3,192,58 
1480 DATA,,15,16,,,85,,,85,80,1,65,84,1,64,8 
0,5,64,,1,64,,,,,,,,,,,,,,,,,,,,,, 

1490 DATA,,,,,128,,2,168,,2,250,128,18,14,19 

2.14.3.. 3.16...85...85.80.1.65.80.1 

1500 DATA64,64,,64,,,,,,,,,,,,,,,,,,,,,,,,,, 
,,1,80,,1,84,5,1,80,21,65,64,85,85 
1510 DATA64,5,85, , ,85,, ,4,252, ,, 171 ,3,192,16 
8,14,176,160,58,175,160,2,170,128, 

1520 DATA42,12B,,2,,,,,,,,,,,,,,,,,,,,,,,,,, 
,,1,64,,1,80,5,1,64,21,65,64,5,85, 

1530 DATA,85,,,4,240,,,172,3,192,160,14,176, 

160.2.175.128.. 42.128..2........., 

1540 DATA, ,,,,,,,,,,,,,,,,,,,, , ,1,, 1,1 ,64,5, 

65,64,5,85, , ,85, , ,4, 192, , 192, 176,3 

1550 DATA176,160,2,175,128,,42,128,,2,,,,,,, 

,,,,,,,,,,,,,,5,64,,21,64,,5,64,B0 

1560 DATA1,65,84,1,85,85,,85,80,,85,,63,16,, 

234, , ,42,3, 192, 10, 14, 176, 10,250, 172 

1570 DATA2, 170, 128,2, 168, , , 128, ,,,,,,,,,,,,, 

,,,,,,,,,,,,,1,64,,5,64,,1,64,80,1 

1580 DATA6S.84,,85,80,,85,,15,16,,58,,,10,3, 

192,10,14, 176,2,250, 128,2, 168, , , 128 

1590 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,64 

,,1,64,64,1,65,80,,85,80,,85,,3,16 

1600 DATA,14,3,,10,14,192,2,250,128,2,168,,, 

»2ß...,,,128,,,224,,,42,, 

1610 DATASB,128,32,10,160,160,78,150,160,86, 

166,160,23,166,160,21,169,160,5,234 

1620 DATABB.S,106,170,1,122,191,1,90,128,,94 

,192,,86,84,,23,85,,21,85,,5,64,,5 

1630 DATA64,,1,,,1,,128,,,,32,,,58,,,10,12B, 

,14,160,32,18,152,160,23,166,160,5 

1640 DATA166,160,5,233,160,1,106,88,1,122,17 

0,,90,191,,94,192,,22,84,,23,85,,5 

1650 DATA85, ,5,64, , 1, , , 1, , , , , , , , 128, , , , , , ,8, 

,,14,128,,2,160,,7,152,32,5,165,160 

1660 DATA1,230,160,1,105,160,,122,88,,90,168 

,,30,252,,22,84,,7,84,,5,84,,1,,,1 

1670 DATA,,,,,,,,,,,,,128,,,2,,,11,,,168,8,2 

,172,10,10,160,10,150,177,10,154 

1680 DATA149,10,154,212,10,106,84,37,171,80, 

170,169,80,254,173,64,2,165,64,3 

1690 DATA181, ,21,149, ,B3,212, ,85,84, , 1 ,80, , 1 

,80,,,64,,,64,,,,,,,,8,,,172,,2,160 

1700 DATA8,10,176,10,38,132,10,154,212,10,15 

4,80, 10,107,80,37,169,64, 170, 173,64 

1710 DATA254,165,,3,181,,21,148,,85,212,,85, 

1 1 t'mviimitf (t 

1720 DATA32,,2,176,,10,128,8,38,208,10,90,80 
,10,155,64,10,105,64,37,173,,42,165 
1730 DATA,63,180,,21,148,,21,208,,21,80,,,64 
,,,64,,,,,,,,,,,,,,,,1,,,1,,,5,64, 

1740 DATAS,64,,21,85,,23,85,,86,84,,94,192,1 

,90,128,1,122,191,5,106,170,5,234 

1750 DATAB8.21,169,160,23,166,160,86,166,160 

,7B,150,160,10,160,160,58,128,32,42 

1760 DATA.,224,,,128,,,,,,,,,,,1,,,1,,,3,64, 


,5,85, ,23,B5, ,22,84, ,94,192, ,90,191 

1770 DATA1 , 122, 170, 1 , 106,88,5,233,160,5, 166, 

160,23,166,160,1B,152,160,14,160,32 

1780 DATA10,128,,58,,,32,,,,,,,,,,,,,,,,,,,, 

1.. .1...5.84..7.84..22.84..30.252, 

1790 DATA90,168,,122,88,1,105,160,1,230,160, 

5.165.160.7.152.32.2.160.. 14.128..8 

1800 DATA,..1,,64,,,64,,1,80,,1,80,,85, 

B4, ,85,212, ,21,149, ,3,181 , ,2, 165,64 

1810 DATA254,173,64,170,169,80,37,171,80,10, 

106,84,10,154,212, 10, 154,149,10,150 

1820 DATA177,10,10, 160,8,2,172, , , 16B, ,,11,,, 

2.. .......64...64..1.80..85.80..85 

1830 DATA212,,21,148,,3,1B1,,254,165,,170,17 
3,64,37,169,64,10,107,B0,10,1S4.80 
1840 DATA10, 154,212, 10,38,132,8, 10, 176, ,2,16 
0,,,172,,,8,,,,,,,,,,,,,,,,,,64,, 

1850 DATA64,,21,80,,21,208,,21,14B,,63,180,, 

42.165.. 37.173..10.105.64.10.155.64 

1860 DATA10,90,80,B,38,208,,10,12B,,2,176,,, 

32.. ..............10...171..42.172 

1870 DATA2, 166,176,170, 154,213,254,166, 149,3 
,234,164,1 , 127, 168,85,B5,250,B5,B5 

1880 DATA79,1 ,85,80, ,21 ,84, , ,85, , ,5. 

• •«»*« 1*^5, i«««i* 160,, ,234,, ,58,168 

1890 DATA,14,154,128,87,166,170,86,154,191,2 

6,171,192,42,253,64,175,85,8s,241 

1900 DATA85,85,5,85,64,21,84,,85,,,80,,,,,,, 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,5,,,85 

1910 DATA,21,84,1,65,80,85,B5,79,85,85,250,1 

,127, 168,3,234,164,254, 166, 149, 170 

1920 DATA154,213,2,166,176,,42,172,,,171,,,1 

«,,,.... ,80, , ,85, , 

1930 DATA21 ,84, ,5,85,64,241 ,B5,85, 175,85,85, 

42,253,64,26,171,192,86,154,191,87 

1940 DATA166,170,14,154,128,58,168,,234,,,16 

B,,,,,,,,,,,l92,,,192,,,168,,2,170 

1950 DATA,2,250,,10,234,1BB,10,170,128,10,17 

0,128,250,170,128,2,170,,2,170,, 

1960 DATA168,,,76,,,92,,5,85,64,21,85,84,21, 

B5,80,85,85,80,5,85,64,,84,,,4,,255 

1970 DATA,48,,,48,,,168,,2,170,,2,250,,10,23 

4,128,250,170,128,10,170,188,10,170 

1980 DATA128.2,170,,2,170,,,168,,,48,,,116,, 

5,85,64,21,85,80,85,BS,84,21,8S,B0 

1990 DATA5,85,64,,84,,,16,,255,,3,,,3,,,168, 

,2,170,,242,250,,10,234,128,10,170 

2000 DATA128,10,170,128,10,170,128,2,170,60, 

2.170.. .168..3.1..3.84..69.85.64.21 

2010 DATAB5,80,21,85,80,21,85,B0,S,B5,68,,84 
« v11 t f 255,,,,48,,48,12,168,192,2 
2020 DATA170, ,2,250, , 10,234, 128, 10, 170, 128, 1 
0,170,128,10,170,128,2,170,,2,170, 

2030 DATA12,168,192,48,,48,16,84,16,5,85,64, 

21,B5,80,21,85,80,21,85,80,5,85,64 

2040 DATA16,84,16,,,,255,,4,,,84,,5,85,64,85 

,85,80,21,85,80,21,85,84,5,85,64, 

2050 DATA92, , ,76,, , 16B, ,2,170, ,2, 170, ,250,17 

0,128,10,170, 128,10,170,128,10,234 

2060 DATA188,2,250, ,2, 170, , , 168, , , 192, , , 192, 

,255, , 16,, ,84, ,5,85,64,21,85,80,85 

2070 DATA85,B4,21,B5,B0,5,85,64,,116,,,48,,, 

168.. 2.170..2.170..10.170.128.10 

2080 DATA170,188,250,170, 128,10,234, 128,2,25 
0, ,2, 170, , , 168, , ,48, , ,48, ,255,1 , , , 

2090 DATA84, ,5,85,68,21 ,85,80,21,85,80,21 ,85 
, 80,69,85,64,3,84,,3,1,,, 168 ,,2,170 
2100 DATA,2,170,60,10,170,128,10,170,128,10, 
x 170,128,10,234,128,242,250,,2,170, 

2110 DATA,168,,,3,,,3,,255,,,,16,84,16,5,85, 

64,21,85,80,21,85,80,21,85,80,5,85 

2120 DATA64,16,84,16,48,,48,12,168,192,2,170 

,,2,170,,10,170,128,10,170,128,10 

2130 DATA170,128, 10,234,128,2,250, ,2, 170, , 12 

,16B,192,48,,48,,,,255,,,,,192,, 

2140 DATA160,,2,168,,2,232,,10,234,192,10,17 
0,,5B,170,,2,168,,2,168,,,160,,,112 
2150 DATA, ,80, ,5,85, ,21 ,85,80,85,85,64,5,85, 
ii®®i* *f « 11 t•>255,,,,,48,,,160, 


Compute mit 













PROGRAMME 


2160 DATA2.168,,2,232,,10,234,,58,170,192,10 
,170,,2,168,,2,168,,,160,,,208,,,80 <152> 

2170 DATA,5,85,,85,85,64,21,85,80,5,85,,,80, 

,,64,,,,,,,,255.12,,,160,,2,168 <194> 

2180 DATA,50,232,,10,234,,10,170,,10,170,,2, 

168.192.2.168.. .160..3.4...80..69 <1B8> 
2190 DATA85,,21,85,64,21,85,64,5,85,16,,80,, 

1.. .......255.......12.163..2.168, <90> 

2200 DATA2,232,,10,234,,10,170,,10,170,,2,16 

8, ,2,168,,12,163,,,,,16,80,64,5,85 <175> 

2210 DATA,21,85,64,21,85,64,5,85,,16,B0,64,, 
n,M,i ,255,,,,,,,, 16, , ,80, ,5,85, <85> 

2220 DATA85,85,64,21,85,80,5,85,,,80,,,112,, 

,160,,2,168,,2,168,,58,170,,10,170 <50> 

2230 DATA,10,234,192,2,232,,2,168,,,160,,,19 

2.. ...255........64...80..5.85..21 <104> 

2240 DATA85,80,85,85,64,5,85,,,80,,,208,,,16 

0,,2,168,,2,168,,10,170,,58,170,192 <199> 

2250 DATA10,234,,2,232,,2,168,,,160,,,48,,,, 

,255...1,,,,80,,5,B5,16,21,B5 <221> 

2260 DATA64,21,85,64,69,85,,,80,,3,4,,,160,, 

2.168.. 2.168.192.10.170..10.170..10 <193> 
2270 DATA234,,50,232,,2,168,,,160,,,12,,,,,2 

35.. ........16.80.64.5.85..21.85.64 <31> 

2280 DATA21,85,64,5,85,,16,80,64,,,,12,163,, 

2.168.. 2.168..10.170..10.170..10 <20S> 

2290 DATA234,,2,232,,2,168,,12,163,,,,,,,,-l 

,-l <133> 

ENDE DES LISTINBB 


Teil 4 


C-64 LISTING + CHECKSUMMEN <C VI.0) 


10 REM- <227> 

11 REM > KOSMODROM < TEIL 4 <133> 

12 REM <15S> 

13 REM (C) T.LANARI 1987 <1B6> 

14 REM- <231 > 

110 PRINT" I CLEAR y" IP0KE56,74IP0KES2,74IP0KE5 
3280,2:P0KE53281,2 <108> 

120 PRINTTAB<255>SPC <236) " I HHITO BITTEI SPACE 
1ETWAS < SP4CO GEDULD I SP4CO ! " <70> 

124 : <1B2> 

125 REM DATEN LESEN <7> 

126 l <184> 

130 READAiIFA<0THENEND <228> 

140 READB:IFB<0THEN130 <60> 

150 POKEA,BlA»A+1x GOTO140 <18B> 

160 : <218> 

1000 REM MASCHINENPROGRAMM <156> 

1010 REM ZOOM <226> 

1020 DATA32832,172,4,4,208,1,96,133,166,198, 
1,169,3,133,167,166,165,165,166,48 <184> 

1030 DATA13,189,0,173,133,168,189,128,173,13 

3,169,56,176,10,189,0,174,133,168 <222> 

1040 DATA189,128,174,133,169,189,0,172,133,1 
70,189,128,172,133,171,1B9,0,175 <102> 

1050 DATA133, 172,189, 128, 175,133,173,160,0,2 
4,177,168,145,170,145,172,152,105,8 <96> 

1060 DATA168,208,244,230,169,230, 171,230, 173 
,160,56,56,177,168,145,170,145,172 <2> 

1070 DATA152,233,8,168,16,244,138,24,105,32, 

170,198,167,16,164,165,166,48,32 <242> 

1080 DATA172,0,4,208,12,172,1,4,240,2,230,16 
5,230,165,56,176,9,172,1,4,240,2 <27> 

1090 DATA198,165,198,165,165,165,41,31,133,1 
65,230,1,96,-1 <22> 

1100 REM RAUMSTATION <60> 

1110 DATA33024,165,158,208,5,173,4,4,240,4,1 
98,159,48,1,96,169,5,133,159,160,0 <46> 

1120 DATA24,152,101,158,153,159,125,200,192, 
10,208,245,169,0,141,159,125,24,152 <167> 

1130 DATA101,158,153,189,125,200,192,20,208, 

245.24.152.101.158.153.219.125.200 <127> 

1140 DATA192,30,208,245,24,152,101,158,153,2 
49,125,200,192,40,208,245,24,152 <!> 

1150 DATA101,158,153,23,126,200,192,50,208,2 

45.24.152.101.158.153.53.126.200 <48> 


1160 DATA192,60,208,245,160,0,165,158,24,105 
,60,133,158,201,220,144,2,132,158 <1S2> 

1170 DATA140,103,126,140,104,126,140,111,126 
,140,112,126,96,-1 <B6> 

1180 REM SPIEL-INTERRUPT <34> 

1190 DATA33856, 169,0,141 ,33,208, 169,1,141 ,25 
,2BB,173,18,208,201,148,176,31,160 <212> 

1200 DATA11,136,16,253,169,24B, 141 ,24,208, 16 

9.27.141.17.208.169.1.141.27.208.32 <137> 

1210 DATA0,129,169,148,141,18,208,76,188,254 
,201,183,176,52,173,4,4,240,39,160 <201> 

1220 DATA7, 185,8,5, 153,8,208,136, 16,247,173, 
16,208,41,15,13,17,5,141,16,208,160 <214> 

1230 DATA3,185,22,5,153,252,127,185,30,5,153 
,43,208,136,16,241,169,183,141,18 <229> 

1240 DATA208,76,188,254,160,240,162,59,169,1 
85,205,18,208,176,251,142,17,208 <175> 

1250 DATA140,24,208,169,0,141,27,208,169,113 
,141,18,208,173,2,4,160,9,136,16 <178> 

1260 DATA253,141,33,208,169,0,32,64, 128, 173, 
4,4,240,73,173,16,208,41,3,13,34,5 <27> 

1270 DATA13, 16,5, 141,16,208, 160,3, IBS, 18,5, 1 
53,252,127,185,26,5,153,43,208,185 <89> 

1280 DATA3S,5,153,4,208,185,0,5,153,8,208,18 
5,4,5,153,12,208,136,16,223,173,39 <220> 

1290 DATA5, 141,250, 127,173,40,5,141 ,251,127, 

173,41,5,141,41,208,173,42,5,141,42 <85> 

1300 DATA208,32,64,130,169,128,32,64,128,32, 
198,130,32,128,129,32,74,131,32,192 <157> 

1310 DATA204,32,32,158,32,96,150,32,192,148, 
173,4,4,240,13,198,247,16,9,169,25 <43> 

1320 DATA133.247,169,1,32,68,147,76,188,254, 

-1 <143> 

1330 REM TITEL-INTERRUPT <210> 

1340 DATA3724S,169,1,141,25,208,173,18,208,2 
01,136,176,64,169,16B,141,24,208 <216> 

1350 DATA169,2,141,35,208,169,136,141,18,208 
,164,146,185,0,144,141,0,208,185 <27> 

1360 DATA192,144,141,1,208,185,64,144,141,2, 

208,185,0,145,141,3,208,185,128,144 <61> 

1370 DATA141,4,208,185,64,145,141,5,208,198, 
146,165,146,41,63,133,146,76,188 <13S> 

1380 DATA2S4,160,162,162,7,173,3,4,208,4,160 
,18,162,0,140,24,208,142,21,208,169 <43> 

1390 DATA15, 141 ,35,208, 160,40,169,1,174,3,4, 
208,2,169,9,153,183,217,136,208,250 <132> 

1400 DATA169,0,141,18,208,32,32,159,76,64,15 
9,-1 / < 117> 

1410 REM RANGLISTE <29> 

1420 DATA37376,160,180,185,7,134,201,46,20B, 
5,169,47,153,7,134,185,187,134,201 <77> 

1430 DATA46,208,5,169,47,153,187,134,136,208 
,229,162,255,169,100,133,147,169 <12B> 

1440 DATA135,133,148,160,0,185,10,126,56,233 
,192,209,147,208,8,200,192,5,208 <171> 

1450 DATA241,56,176,20,144,18,232,165,147,56 
,233,80,133,147,165,148,233,0,133 <1B9> 

1460 DATA148,201,133,208,216,134,151,138,16, 

1,96,169,3,133,147,169,135,133,148 <42> 

1470 DATA169,83,133,149,169,135,133,150,138, 
240,38,160,21,177,147,145,149,136 <20S> 

1480 DATA16.249,165,147,56,233,80,133,147,16 
5,148,233,0,133,148,165,149,56,233 <124> 

1490 DATAB0,133,149,165,150,233,0,133,150,20 
2,208,218,160,21,185,249,125,56,233 <211> 

1500 DATA192,145,149,136,192,16,208,243,136, 
169,47,145,149,136,16,251,169,195 <101> 

1510 DATA133,147,169,133,133,148,166,151,165 
,147,24,105,80,133,147,165,148,105 <51> 

1520 DATA0,133,148,232,224,5,208,238,160,0,1 
32,149,200,133,186,169,46,164,149 <234> 

1530 DATA192,16,240,2,145, 147,165,186,208,1, 
96,32,228,255,201,133,208,10,72,173 <181> 

1540 DATA3,4,73,1,141,3,4,104,172,3,4,208,22 

9.201.147.208.3.76.160.158.201.32 <144> 

1550 DATA208,4, 169,101,208,41 ,201,46,208,4,1 
69,47,208,33,201,20,208,18,169,47 <61> 

1560 DATA164,149,192, 16,240,2, 145,147, 198,14 
9,16,4,162,0,134,149,201,65,144,170 <78> 
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1570 DATA201,91,176,166,96,233,64,164,149,19 
2,16,176,2,145,147,192,16,240,2,230 <79> 

1580 DATA149,S6,176,146,-1 <122> 

1590 REM CLR-RANGLISTE <9> 

1600 DATA4060B,173,3,4,240,1,96,160,0,190,8, 
134,240,29,224,48,144,6,224,58,176 <184> 

1610 DATA2,144,7,169,47,153,8,134,208,12,190 
,9,134,224,47,240,5,169,48,153,8 <183> 

1620 DATA134,190,188,134,240,29,224,48, 144,6 
,224,58,176,2,144,7,169,47,153,188 <191> 

1630 DATA134,208,12,190,189,134,224,47,240,5 
,169,48,153,188,134,200,192,180,208 <2> 

1640 DATA183,96,-1 <82> 

1650 REM TITELSTART <249> 

1660 DATA37932,120,169,0,141,14,220,169,128, 
141,20,3,169,145,141,21,3,169,27 <32> 

1670 DATA141,17,208,160,240,169,9,153, 159,21 
6,136,208,250,169,1,153,232,217,153 <207> 

1680 DATA232,218,136,208,247,141,39,208,141, 
40,208,141,41,208,141,26,208,133 <91> 

1690 DATA146,169,14,141,33,208,141,32,208,16 
9,149,141,0,221,169,216,141,22,208 <191> 

1700 DATA169.0,141,34,208,141,28,208,141,23, 
208,141,29,208,88,96,-1 <240> 

1710 REM PUNKTE & SCHIRM / ANZEIGE <24B> 

1720 DATA37696,B,0,0,0,24,109,64,147,141,64, 
147,173,65,147,105,0,141,65,147,144 <2S> 

1730 DATA8,169,255,141,64,147,141,65,147,96, 
133,2,173,66,147,56,229,2,141,66 <203> 

1740 DATA147, 173,67, 147,233,0, 141,67, 147, 176 
,11,169,0,141,4,4,141,66,147,141,67 <69> 

1750 DATA147,96,0,120,173,65,147,172,64,147, 

BB,132,99,133,98,160,6,169,48,153 <242> 

1760 DATA25S,0,136,16,250,162,144,56,32,73,1 

88.32.223.189.162.4.160.7.136.185 <136> 
1770 DATA255,0,208,250,136,185,255,0,201,32, 

240,13,24,105,192,157,10,126,136 <125> 

1780 DATA202,16,239,56,176,8,169,240,157,10, 

126,202,16,250,120,173,67,147,172 <137> 

1790 DATA66,147,88,132,99,133,98,160,6,169,4 
8,153,255,0,136,16,250,162,144,56 <112> 

1800 DATA32,73,188,32,223,189,162,4,160,7,13 
6,185,255,0,208,250,136,IBS,255,0 <169> 

1810 DATA201,32,240,16,24,105,192,157,42,126 
,136,224,4,208,1,202,202,16,234 <143> 

1820 DATA96,169,240,157,42,126,202,16,250,96 
,-l ' <238> 

1830 REM SPIELER-RAUMSCHIFF STEUERUNG <124> 

1840 DATA33152,173,4,4,208,1,96,238,2,220,17 
3,0,220,45,1,220,206,2,220,41,15,73 <40> 

1850 DATAIS.240,94,201,2,208,2,160,2,201,6,2 
08,2,160,10,201,4,208,2,160,18,201 <191> 

1860 DATA5,208,2,160,26,201,1,208,2,168,34,2 
01,9,208,2,160,42,201,8,208,2,160 <248> 

1870 DATA50.201,10,208,2, 160,58,132,181,165, 
180,56,229,181,16,2,73,255,201,31 <234> 

1880 DATA144,2,73,63,133,188,230,180,165,180 
,56,229,181,16,2,73,255,201,31,144 <25> 

1890 DATA2,73,63,197,188,240,4,144,4,198,180 
,198,180,165,180,41,63,133,180,198 <117> 

1900 DATA1,165,180,74,24,105,40,141,249, 127, 

164.180.185.128.176.141.2.208.185 <203> 

1910 DATA192,176,141,3,208,230,1,96,-1 <B6> 

1920 REM STRAHL <9> 

1930 DATA33344,173,4,4,208, 1,96,32,32, 159, 17 

0,165,182,16,32,138,41,16,240,4,169 <49> 

1940 DATA0,133,184,165,184,208,19,138,41,16, 

208.14.169.8.133.182.133.184.173.21 <66> 

1950 DATA20B,9,1,141,21,208,165,182,48,4,198 
,182,16,34,173,2,208,141,0,208,173 <166> 

1960 DATA3,208,141,1,208,165,180,74, 133, 183, 

173.16.208.41.254.141.16.208.173.21 <233> 
1970 DATA208,41,254,141,21,208,96,198,1,164, 

1B3,173,0,208,24,121,64,176,141,0 <255> 

1980 DATA208,185,64,176,4B,4,144,12,176,2,17 
6,8,173,16,208,9,1,141,16,208,173,1 <245> 

1990 DATA208.24,121 ,96, 176, 141,1,208,230,1,9 

6.165.182.48.1.96.198.1.164.183.185 <1B5> 


2000 DATA0, 176,133,174,185,32,176,133, 175,16 


0,31,177,174,153,64,95,136,16,248 <1S7> 

2010 DATA230,1,96,-1 <24B> 

2020 REM GRAPHIK INIT <73> 

2030 DATA33536,169,0,133,165,169,64, 133,166, 
133,167,169,85,133,168,160,0,152 <62> 

2040 DATA145,165,145,167,136,208,249,230,166 
,230,168,165,168,201,95,208,238,19B <97> 

2050 DATA1,160,240,185,255,180,153,159,101,1 
85,239,181,153,143,102,136,208,241 <121> 

2060 DATA230.1,96,-1 <43> 

2070 REM SPIELENDE <241> 

2080 DATA33600,180,130,177,145,160,138,192,4 
8,12,3,173,4,4,240,1,96,169,10,133 <1B> 

2090 DATA146,173,27,212,41,3,170,172,27,212, 
192,240,176,249,185,160,101,61,70 <13B> 

2100 DATA131,153,160,101,172,27,212,192,240, 
176,249,185,144,102,61,70,131,153 <42> 

2110 DATA144,102,198,146,16,214,198,1,160,7, 

185,0,181,153,160,101,185,144,182 <241> 

2120 DATA153.48,103,185,152,182,153,56,103,1 
85,208,182,153,115,103,136,16,229 <255> 

2130 DATA230,1,19B,185,4B,1,96,169,7,133,185 
,174,249,127,224,226,176,44,169,226 <102> 

2140 DATA141 ,249,127, 141,250,127,141,251,127 
,141,252,127,173,3,20B,56,233,8,141 <172> 

2150 DATA3.208,169,30,141,21,208,160,5,185,6 
4,131,153,4,20B,136,16,247,169,0 <69> 

2160 DATA141,16,208,224,235,208,1,96,224,234 
,240,13,238,249,127,238,250,127,238 <125> 

2170 DATA251,127,238,252,127,96,169,1,141,21 
,208,169,0,141,28,208,169,7,141,39 <57> 

2180 DATA20B,169,1,141,29,208,169,165,141,0, 

208,169,142,141,1,208,169,235,141 <213> 

2190 DATA24B,127,141,5,4,96,—1 <76> 

2200 REM UFO EXPLOSION <178> 

2210 DATA40480,173,4,4,208,1,96,206,6,4,16,2 
50,169,3,141,6,4,172,10,4,192,234 <232> 

2220 DATA240,10,200,140,10,4,140,39,5,56,176 
,12,173,39,5,201,234,20B,5,169,238 <50> 

2230 DATA141,39,5,172,11,4, 192,234,240,10,20 
0,140,11,4,140,40,5,56,176,12,173 <96> 

2240 DATA4B ,5,201, 234,208,5,169,238,141,40,5 
,162,7,160,14,189,12,4,201,234,240 <222> 

2250 DATA12.254,12,4,1B9,12,4,157,18,5,56, 17 
6,24,189,18,5,201,234,208,17,224,0 <129> 

2260 DATA240,8,224,4,240,4,169,236,208,2,169 
,237,157,18,5,136,136,202,16,208 <1SB> 

2270 DATA96,—1 <52> 

2280 REM TREFFER ERKENNUNG <136> 

2290 DATA38080,165,182,16,1,96,173,4,4,208,1 
,96,173,20,4,208,77,173,0,208,56 <92> 

2300 DATA237,35,5, 16,2,73,255, 170, 173, 16,208 
,41,1,13,34,5,41,5,240,8,201,5,240 <61> 

2310 DATA4,138,73,255,170,138,201,12,176,40, 
173,1,208,56,233,5,56,237,36,5,16,2 <5> 

2320 DATA73,255,201,12,176,22,169,226,141,10 
,4,141,20,4,169,200,32,68,147,169 <9> 

2330 DATA200,32,68, 147,169,0,133,182,173,21, 
4,208,77,173,0,208,56,237,37,5,16,2 <57> 

2340 DATA73,255,170,173,16,208,41,1,13,34,5, 
41,9,240,8,201,9,240,4,138,73,255 <121> 

2350 DATA170,138,201,12,176,40,173,1,200,56, 
233,5,56,237,38,5,16,2,73,255,201 <67> 

2360 DATA12,176,22,169,226,141,11,4,141,21,4 
,169,200,32,68,147,169,200,32,68 <204> 

2370 DATA147, 169,0, 133, 182, 160,3, 162,6, 169, 1 
29,133,187,185,22,4,208,80,173,0 <69> 

2380 DATA208,56,253,0,5,16,2,73,255,72,173,1 

6.208.41.1.13.16.5.37.187.240.8.197 <220> 

2390 DATA187,240,4, 104,73,255,72,104,201,12, 
176,43,173,1,208,56,233,5,56,253,1 <207> 

2400 DATA5,16,2,73,255,201,12,176,25, 169,226 

,153,12,4,153,22,4,169,100,32,68 <176> 

2410 DATA147,152,208,5,169,200,32,68, 147,169 
,0,133,182,165,187,74,9,1,133,187 <B4> 

2420 DATA202.202,136,16,159,160,3,162,6,169, 
129,133,187,185,26,4,208,80,173,0 <212> 

2430 DATA20B,56,253,8,5,16,2,73,255,72,173,1 

6.208.41.1.13.17.5.37.187.240.8.197 <170> 
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2440 DATA1B7,240,4,104,73,255,72,104,201,12, 
176,43,173,1,208,56,233,5,56,253,9 <49> 

2450 DATA5,16,2,73,255,201,12,176,25,169,226 
,153,16,4,153,26,4,169,100,32,68 <94> 

2460 DATA147,152,208,5,169,200,32,68,147,169 
,0,133,182,165,187,74,9,1,133,187 <134> 

2470 DATA202.202,136,16,159,96,-1 <197> 

2480 REM UFO STEUERUNG <173> 

2490 0ATA38496,173,4,4,208,1,96,173,38,4,48, 
2,73,2,73,1,141,38,4,173,41,4,48,2 <31> 

2500 DATA73,2,73,1,141,41,4,173, 18,5,201,237 
,208,18,238,32,4,172,32,4,192,20 <1S2> 

2510 DATA20B.8,160,0, 140,1 ,5,140, 18,5, 173,27 
,212,205,7,4,176,81,173,30,4,201 <71> 

2520 DATA110,208,74,169,0, 141 ,32,4,141,22,4, 
141,30,4,169,160,141,0,5,173,27,212 <99> 

2530 DATA41,31,24, 105,50, 141,1 ,5, 173, 16,5,9, 

16.141.16.5.173.27.212.41.7.168.185 <236> 

2540 DATA192,123,141,26,5,173,27,212, 16, 12,1 
69,209,141,18,5,169,4,141,31,4,208 <202> 

2550 DATA10,169,208,141,18,5,169,252,141,31, 

4,173,18,5,201,226,176,39,173,30,4 <159> 

2560 DATA201,110,240,32,238,30,4,173,0,5,24, 
109,31,4,141,0,5,173,31,4,48,4,144 <1B7> 

2570 DATA12,176,2,176,8,173,16,5,73,16,141,1 
6,5,173,22,5,201,237,208,18,238,35 <109> 

2580 DAT A4,172,35,4,192,20,208,8,160,0,140,9 
,5,140,22,5,173,27,212,205,7,4,176 <101> 

2590 DATAB1,173,33,4,201,110,208,74,169,0,14 
1,35,4,141,26,4,141,33,4,169,160 <212> 

2600 DATA141,8,5,173,27,212,41,31,24,105,200 
,141,9,5,173,17,5,9,16,141,17,5,173 <119> 

2610 DATA27,212,41 ,7,168,18S, 192, 123, 141,30, 
5,173,27,212,16,12,169,207,141,22,5 <125> 

2620 DATA169,4,141,34,4,208,10,169,206,141,2 
2,5,169,252,141,34,4,173,22,5,201 <39> 

2630 DATA226 ,176,39,173,33,4,201,110,240,32 , 
238,33,4,173,8,5,24,109,34,4,141,8 <144> 

2640 DATA5,173,34,4,48,4,144,12,176,2,176,8, 
173,17,5,73,16,141,17,5,173,27,212 <34> 

2650 DATA205,7,4,176,71,173,3,5,208,5,173,36 
,4,201,120,208,59,169,0,141,36,4 <37> 

2660 DATA141,23,4,141,19,5,141,37,4,173,16,5 
,9,32,141,16,5,173,27,212,41,7,168 <200> 

2670 DATA185,192,123,141,27,5,173,27,212,74, 

41.7.168.185.200.123.141.38.4.185 <171> 

2680 DATA208,123,141,3,5,185,216,123,141,2,5 
,173,19,5,201,226,176,64,173,36,4 <242> 

2690 DATA201,120,240,57,238,36,4,160,202,174 
,38,4,48,2,160,205,201,100,176,1 <9S> 

2700 DATA136.201,60,176,1,136,140,19,5,238,3 
,5,173,2,5,24,109,38,4,141,2,5,173 <181> 

2710 DATA3B,4,48,4,144,12,176,2,176,8,173, 16 
,5,73,32,141,16,5,172,36,4,173,19,5 <80> 

2720 DATA201,236,208,24,238,37,4,173,37,4,20 
1,20,240,4,192,120,208,10,169,0,141 <105> 

2730 DATA3,5,169,120,141,36,4,192,119,208,16 
,169,226,141,13,4,141,23,4,165,17 <1> 

2740 DATA32,94,147,238,36,4,173,27,212,205,7 
,4,176,71,173,11,5,208,5,173,39,4 <163> 

2750 DATA201,120,208,59,169,0,141,39,4,141,2 
7,4,141,23,5,141,40,4,173,17,5,9,32 <235> 

2760 DATA141,17,5,173,27,212,41,7,168,185,19 

2,123,141,31,5,173,27,212,74,41,7 <220> 

2770 DATA16B, 185,200,123, 141,41 ,4,185,224, 12 

3.141.11.5.185.216.123.141.10.5.173 <27> 

2780 DATA23,S,201,226,176,64,173,39,4,201,12 
0,240,57,238,39,4,160,196,174,41,4 <1> 

2790 DATA48,2, 160, 199,201,100, 176, 1,136,201 , 

60.176.1.136.140.23.5.206.11.5.173 <7B> 

2800 DATA10,5,24, 109,41,4,141,10,5,173,41 ,4, 
48,4,144,12,176,2,176,8,173,17,5,73 <154> 

2810 DATA32,141,17,5,172,39,4,173,23,5,201,2 
36,208,24,238,40,4,173,40,4,201,20 <1S9> 

2820 DATA240.4,192,120,208,10,169,0,141,11,5 
,169,120,141,39,4,192,119,208,16 <121> 

2830 DATA169,226,141,17,4,141,27,4,165,17,32 

,94,147,23B,39,4,173,27,212,205,7 <12> 

2840 DATA4,176,62,173,5,5,208,5,173,42,4,201 


,120,208,50,169,0,141,42,4,141,24,4 <2> 

2850 DATA141,20,5,141,43,4,173,16,5,41,191,1 

41.16.5.173.27.212.41.7.168.185.192 <94> 

2860 DATA123,141,28,5,173,27,212,41,15,24,10 
5,164,141,4,5,169,2,141,5,5,173,20 <34> 

2870 DATAS,201,226, 176,28,173,42,4,201,120,2 
40,21,238,42,4,160,181,201,110,176 <172> 

2880 DATA1,136,201,70,176,1,136,140,20,5,238 
,5,5,172,42,4,173,20,5,201,236,208 <156> 

2890 DATA24,238,43,4,173,43,4,201,20,240,4,1 
92,120,208,10,169,0,141,5,5,169,120 <75> 

2900 DATA141,42,4,192,119,208,16,169,226,141 
,14,4,141,24,4,165,17,32,94,147,238 <244> 

2910 DATA42,4,173,27,212,205,7,4, 176,62, 173, 

13.5.208.5.173.44.4.201.120.208.50 <163> 
2920 DATA169.0,141,44,4,141,28,4,141,24,5,14 

1.45.4.173.17.5.41.191.141.17.5.173 <225> 
2930 DATA27,212,41,7, 168,185,192,123, 141,32, 

5.173.27.212.41.15.24.105.164.141 <79> 

2940 DATA12.5,169,24,141,13,5,173,24,5,201,2 
26,176,28,173,44,4,201,120,240,21 <63> 

2950 DATA238,44,4,160,178,201,110,176, 1,136, 

201.70.176.1.136.140.24.5.206.13.5 <200> 
2960 DATA172,44,4,173,24,5,201,236,208,24,23 

8.45.4.173.45.4.201.20.240.4.192 <200> 
2970 DATA120.208,10,169,0,141,13,5, 169, 120,1 

41.44.4.192.119.208.16.169.226.141 <41> 
2980 DATA18,4, 141,28,4,165,17,32,94, 147,238, 

44.4.173.27.212.205.7.4.176.79.173 <151> 

2990 DATA7,5,208,5,173,46,4,201,120,20B,67,1 
69,0,141,46,4,141,25,4,141,21,5,141 <67> 

3000 DATA47.4,173,16,5,41,127,141,16,5,173,2 

7.212.41.7.168.185.192.123.141.29.5 <63> 

3010 DATA172,27,212,41,7,168,185,240,123,141 
,6,5,169,3,141,7,5,185,232,123,141 <33> 

3020 DATA48.4,16,8,173,16,5,9,128,141,16,5,1 
73,21,5,201,226,176,64,173,46,4,201 <53> 

3030 DATA120,240,57,238,46,4, 160, 190, 174,48, 

4,16,2,160,193,201,110,176,1,136 <220> 

3040 DATA201,70,176,1,136,140,21,5,238,7,5,1 

73.6.5.24.109.48.4.141.6.5.173.48.4 <27> 

3050 DATA48,4,144,12,176,2, 176,8, 173, 16,5,73 
,128,141,16,5,172,46,4,173,21,5,201 <43> 

3060 DATA236,208,24,238,47,4,173,47,4,201,20 
,240,4,192,120,208,10,169,0,141,7,5 <11> 

3070 DATA169,120,141,46,4,192,119,208,16,169 
,226,141,15,4,141,25,4,165,17,32,94 <43> 

3080 DATA147,238,46,4, 173,27,212,205,7,4, 176 
,79,173,7,5,208,5,173,49,4,201,120 <184> 

309B DATA208,67,169,0,141,49,4,141,29,4,141, 

25.5.141.50.4.173.17.5.41.127.141 <111> 

3100 DATA17,5,173,27,212,41,7,168,185,192,12 

3,141,33,5,172,27,212,41,7,168,185 <17> 

3110 DATA240,123,141,14,5,169,23,141,15,5,18 
5,232,123,141,51,4,16,B,173,17,5,9 <240> 

3120 DATA128,141,17,5,173,25,5,201,226,176,6 

4.173.49.4.201.120.240.57.238.49.4 <49> 
3130 DATA160,184,174,51,4,16,2,160,187,201,1 

10,176,1,136,201,70,176,1,136,140 <7> 

3140 DATA25,5,206,15,5,173,14,5,24,109,51,4, 
141,14,5,173,51,4,48,4,144,12,176,2 <191> 

3150 DATA176,8,173,17,5,73,128, 141,17,5,172, 

49.4.173.25.5.201.236.208.24.238.50 <254> 

3160 DATA4,173,50,4,201,20,240,4,192,120,208 
,10,169,0,141,15,5,169,120,141,49,4 <116> 

3170 DATA192,119,208,16,169,226,141,19,4,141 

,29,4,165,17,32,94,147.23B,49,4,206 <149> 

3180 DATA62,4,16,77,169,64,141,62,4,173,7,4, 

201,5,144,73,173,27,212,41,31,205,7 <143> 

3190 DATA4,176,63,172,36,5,208,5,172,52,4,19 
2,100,208,51,160,0,140,20,4,140,52 <153> 

3200 DATA4,140,53,4,140,39,5,173,27,212,141, 

54.4.41.7.168.185.192.123.141.41.5 <145> 

3210 DATA160.210,173,27,212,41,64,208,2,160, 
160,140,56,4,173,34,5,41,251,141,34 <141> 

3220 DATAS, 173,39,5,201,226, 176,64,172,52,4, 

192,100,240,57,238,52,4,206,55,4 <106> 

3230 DATA173,55,4,41,7,141,55,4,74,24,109,56 
,4,192,50,144,3,24,105,8,174,54,4 <9B> 


Compute mit 


5/88 
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PROGRAMME 


3240 DATA16,3,24,103,4,141,39,3,183,224,202, 

141.35.3.183.168.203.174.34.4.48.3 <10B> 

3230 DATA183, 12,204,141,36,3,172,32,4,173,39 
,3,201,238,208,24,238,33,4,173,33,4 <106> 

3260 DATA201,20,240,4,192,100,208,10,169,0,1 

41,36,3,169,100,141,32,4,192,99,288 <139> 

3270 DATA16, 169,226,141,10,4, 141,20,4, 169,80 
,32,94,147,238,32,4,206,63,4,16,83 <234> 

3280 DATA169.64,141,63,4,173,7,4,201,3,144,7 
3,173,27,212,41,31,203,7,4,176,63 <2B> 

3290 DATA172,38,3,208,S, 172,37,4, 192, 100,208 
,51,160,0,140,21,4,140,37,4,140,58 <17S> 

3300 DATA4,140,40,3,173,27,212, 141 ,39,4,41,7 
,168,183,192,123,141,42,3,160,210 <61> 

3310 DATA173,27,212,41,64,208,2,160,160,140, 

61.4.173.34.5.9.8.141.34.5.173.40.3 <132> 

3320 DATA201,226, 176,78, 172,37,4,192,100,240 
,71,238,37,4,206,60,4,173,60,4,41,7 <53> 

3330 DATA141,60,4,74,24,109,61,4,192,30,144, 
3,24,103,8,174,39,4,16,3,24,105,4 <223> 

3340 DATA141,40,3,173,34,3,41,247,190,68,283 

,142,37,5,224,100,176,2,9,8,141,34 <143> 

3350 OATAS, 185, 168,203, 174,59,4,48,3, 183, 12, 
204,141,38,5,172,57,4,173,40,3,201 <101> 

3360 DATA238,208,24,238,58,4,173,58,4,201,20 
,240,4,192,100,208,10,169,0,141,38 <1B4> 

3370 DATAS,169,100,141,57,4,192,99,208,16,16 
9,226,141,11,4,141,21,4,169,80,32 <23S> 

3380 DATA94, 147,238,37,4, 173,27,212,41,13,24 
,105,45,133,17,96,-1,-1 <212> 

ENDE DES LISTINGB 


Teil 5 


C—64 LI8TING ♦ CHECKSUMMEN (C VI. 0) 


10 REM-- <227> 

11 REM > KOSMODROM < TEIL 3 <1S0> 

12 REM <135> 

13 REM <C> T.LANARI 1987 <1B6> 

14 REM- <231 > 

110 PRINT" I CLEAfj y **lPOKE56■ 74»POKE52.74lPOKE5 
32B0,2fP0KE53281,2 <108> 

120 PRINTTAB(255)SPC <236>“ { MH1TE >BITTE< SPACE 
1ETWABC SPACE 1GEDULD{ SP4CO ! “ <70> 

124 i <1B2> 

125 REM DATEN LEBEN <7> 

126 l <184> 

130 READAiIFA<0TH£NEND <228> 

140 READBlIFB<0THEN130 <6B> 

150 POKEA,BiA«A+liQOTO140 <188> 

160 i <218> 

1000 REM MASCHINENPROGRAMM <156> 

1010 REM RESTORE <39> 

1020 DATA32768,239,232,9,128,195,194,203,56, 

48,169,255,141,2,220,74,141,0,220 <139> 

1030 DATA169,55,133,1,32,234,255,32,223,235, 
208,3,76,102,254,173,21,3,201,145 <223> 

1040 DATA208,3,76,114,254,162,250,154,76,0,8 
2,-1 <60> 

1050 REM ZEICHENFARBE <197> 

1060 DATA34176, 172, 18,208,192,88,176,249,160 
,0,153,144,217,200,192,240,208,248 <24> 

1070 DATA142,34,20B,96,-1 ' <237> 

1080 REM FEUERKNOPF <37> 

1090 DATA40736,238,2,220,173,0,220,43,1,220, 
206,2,220,41,16,208,2,133,186,96,-1 <239> 

1100 REM TASTATUR <150> 

1110 DATA40768,238,2,228,173,1,220,206,2,220 
,201,255,208,3,32,139,233,76,188 <130> 

1128 DATA254,—1 <231> 

1130 REM TABELLEN <139> 

1140 DATA31680,13,14,13,10,8,7,3,3,1,1,1,1,2 
34,234,234,234,4,4,9,9,9,9,4,4,243 <202> 

1130 DATA235,223,215,133,125, 113,103,20,28,1 
3,13,13,15,20,20,1,1,1,1,235,235 <S9> 

1160 DATA2SS,233,60,30,40,30,70,68,30,40,-1 <96> 

1170 DATA24312,1,3,3,8,10,12,14,6,2,4,3,3,14 


,13 <3> 

1180 DATA0,0,0,0,0,0,250,0,9,0,7,0,0,240,0,0 
,0,0,20,16,230,0,0,3,127,-1 <241> 

1190 REM START <113> 

1200 DATA20992,160,0,173,224,202,77,223,202, 
77,226,202,201,3,240,29,132,231,132 <14B> 

1210 DATA233, 169,18,133,252, 169, 160,133,234, 
177,251,145,233,200,208,249,230,252 <144> 

1220 DATA230,254,163,254,201,206,208,239,140 
,138,2,140,0,160,140,64,147,140,65 <137> 

1230 DATA147,152,160,24, 133,0,212,136, 16,230 
,32,128,147,169,128,141,143,2,169 <221> 

1240 DATA1,141,3,4 <147> 

12S0 REM INITIAL <1S0> 

1260 DATA133,186,32,64,148,32,0,146,32,228,2 
55,201,133,208,10,72,173,3,4,73,1 <224> 

1270 DATA141,3,4,104,201,147,208,3,32,160,15 
8,165,186,208,228,120,173,17,208,16 <248> 

1280 DATA251,173,18,208,201 ,30,208,249, 169,0 
, 141,32,208,169,11,141,17,208, 169 <24> 

1290 DATA150, 141 ,0,221,169,216,141 ,22,208,16 
0,0,169,1,153,0,216,153,230,216,153 <110> 

1300 DATA244.217, 153,238,218, 169,0,133,0,4, 1 
53,250,4,153,244,5,153,238,6,200 <0> 

1310 DAT Al 92,250,208,223, 160,39,153, 128,21B, 

153.64.217.136.16.247.141.32.208 <166> 

1320 DATA141,37,208,133,174,133,158,133,159, 
160,24,185,206,95,153,0,212,136,16 <135> 

1330 DATA247,169,1,141,9,4,133,250,169,234,1 
60,9,153,10,4,136,16,250,32,0,131 <219> 

1340 DATA169,8,162,0,32,128,133,169,252,141, 

21,208,169,255,141,28,20B,141,69,4 <9B> 

1350 DATA169,1,141,35,208,141,38,208,169,7,1 

41.40.208.169.1.133.180.133.184.169 <1BS> 

1360 DATA1S6,133,175, 169, 100,141 ,52,4,141 ,57 
,4,169,110,141,30,4,141,33,4,169 <234> 

1370 DATA120,141 ,36,4, 141,39,4,141,42,4, 141, 

44.4.141.46.4.141.49.4.141.4.4.169 <233> 

1380 DATA96,141,66,147,169,9,141 ,67, 147,160, 
16,169,0,153,0,208,136,16,250,169 <211> 

1390 DATA126, 141,248, 127, 169,64,141 ,20,3,169 

,132,141,21,3,169,11,141,17,20B,169 <39> 

1400 DATA0,141,2,4,173,17,208,16,231,173,18, 

208,201,50,208,249,160,1,140,26,20B <65> 

1410 DATAB8,162,140,136,208,233,202,208,250, 

140,64,147,140,65,147,169,10,162 <83> 

1420 DATA14.32,128,133,169,123,141,248,127,1 

69.254.141.21.208 <1B4> 

1430 REM HAUPTSCHLEIFE <237> 

1440 DATA32,12B,147,160,0,173,65,147,201,12, 

144,1,200,201,32,144,1,200,201,36 <10> 

1450 DATA144,1,200,201,96,144,1,200,201,128, 

144,1,200,201,160,144,1,200,196,250 <87> 

1460 DATA240,34,169,1,141,1,4,206,9,4,208,24 
,132,250,169,0,141,1,4,169,100,141 <139> 

1470 DATA9.4, IBS, 192,95,141 ,7,4,185, 199,93, 1 
41,2,4,173,64,4,208,65,173,65,147 <253> 

1480 DATA201,79,176,11,201,78,144,54,173,64, 

147,201,32,144,47,173,66,147,24,105 <35> 

1490 DATA96,141,66,147,173,67,147,105,9,141, 
67,147,141,64,4,169,B,162,0,32,128 <137> 

1500 DATA133,160,1,140,0,4,136,173,2,4,141,6 
6,4,140,2,4,169,32,141,65,4,173,65 <22> 

1510 DATA4,240,23,206,65,4,208,18,169,10,162 
,14,32,128,133,173,66,4,141,2,4,169 <23> 

1520 DATA0,141,0,4,173,5,4,208,3,76,156,83,1 
60,0,140,3,4,162,15,173,18,208,208 <134> 

1530 DATA251,136,208,248,202,208,245,169,1,7 
6,78,82,-1 <206> 

1540 REM PROGRAMM VERSCHIEBEN <226> 

1550 DATA52352,169,54,133,1,160,0,132,231,13 
2,233,169,160,133,232,169,18,133 <191> 

1360 DATA254,177,251,145,253,200,208,249,230 
,252,230,254,163,232,201,206,208 <122> 

1570 DATA239,169,33,133,1,96,-1 <11B> 

1580 REM AKUSTIK <102> 

1598 REM BIGNALTQENE <55> 

1600 DATA52416,173,73,4,208,3,160,21,140,18, 
212,24,103,6,176,9,141,73,4,73,233 <50> 


Compute mit 5/ss 
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PROGRAMME 


1610 DATA141,15,212,96,173,74,4,201,60,240,9 
,238,74,4,169,20,141,18,212,96,169 <65> 

1620 DATA18,141,8,212,160,64,173,0,4,240,1,2 
00,140,11,212 <11B> 

1630 REM STRAHL <230> 

1640 DATA173,248,127,201,125,208,4,165,182,2 
01,7,208,15,169,83,141,68,4,169,21 <199> 

1650 DATA141,18,212, 169,255, 141,69,4, 172,68, 
4,240,31,206,68,4,173,69,4,56,233,4 <101> 

1660 DATA141,69,4,192,21,240,10,192,42,240,6 
,192,63,240,2,20B,5,169,255,141,69 <22> 

1670 DATA4,173,69,4,141,15,212,192,80,200,5, 
169,20,141,18,212 <151> 

1680 REM UFO—EXPLOSION <74> 

1690 DATA173,4,4,240,71,173,6,4,208,24,160,9 
,185,10,4,201,226,240,5,136,16,246 <157> 

1700 DATA48,10,169,129,141,4,212,169,20,141, 
70,4,172,70,4,240,3,206,70,4,208,5 <151> 

1710 DATA169,128,141,4,212,174,27,212,142,0, 

212,169,7,192,18,240,10,192,17,240 <156> 

1720 DATA6,192,15,240,2,208,2,169,0,141,1,21 
2 <104> 

1730 REM END—EXPLOSION <72> 

1740 DATA173,72,4,208,49,173,4,4,208,95,169, 
70,141,72,4,169,253,141,6,212,169 <56> 

1750 DATA50, 141 ,71,4,169, 143, 141 ,24,212, 160, 
255,140,15,212,140,69,4,200,140,23 <101> 

1760 DATA212,140,0,212,160,128,140,18,212,20 
0,140,4,212,169,6,172,72,4,192,1 <179> 

1770 DATA240,20,206,72,4, 192,30, 144,9,172,27 
,212,192,80,176,2,169,0,141,1,212 <142> 

1780 DATA96, 141,1 ,212,169, 128, 141 ,4,212,173, 
71,4,24,105,1,176,6,141,71,4,141,0 <131> 

1790 DATA212,96,-1,—1 <7B> 

ENDE DES LISTINGS 


Teil 6 


C—64 LISTING + CHECKSUMMEN <C VI.0) 


10 REM- <227> 

11 REM > KOSMODROM < TEIL 6 <167> 

12 REM < 155> 

13 REM <C> T.LANARI 1987 <1B6> 

14 REM- <231 > 

100 P0KE52,18sP0KE56,18iSYSS2352sA-PEEK<186) 
iSVS57812“KOSMODROM",A,1 <72> 

110 POKE193,0s POKE194,18sPQKE174,0s PQKE175,1 

60:SYS62957s END <119> 

120 s <17B> 

130 REM NUR FUER KASSETTE <1B6> 

140 s <198> 

150 P0KE56,18 s P0KE52,18 s SYS52352 <210> 

160 READAsIFA<0THEN190 <133> 

170 READB:IFB< 0THEN160 <120 > 

180 POKEA.BsA*A+1SGOTO170 <4> 


190 SYS57812"KOSMODROM",lsPOKE193,229sPOKE19 
4,206sP0KE174,218sPOKE175,207 <105> 

200 SYS62957:SYS52736,0,18,0,160,43,128 <196> 

1000 s <37> 

1010 REM LOAD <97> 

1020 DATA5296S,11,8,195,7,158,50,48,54,50,0, 

0,0,0 <1U> 

1030 DATA162,0,189,28,8,157,0,207,232,208,24 
7,76,0,207,162,0,134,10,134,147,32 <101> 

1040 DATA99,207,173,60,3,133,172,173,61,3,13 

3.173.173.62.3.133.174.173.63.3.133 <191> 

1050 DATA175,160,0,132,144,32,210,245,32,57, 
207,165,189,69,158,240,7,169,255 <105> 

1060 DATA133, 144,76, 122,225,88,108,64,3,0,32 

,153,207,32,114,207,145,172,69,158 <79> 

1070 DATA133,158,230,172,208,5,238,32,208,23 
0,173,165,172,197,174,165,173,229 <53> 

1080 DATA175,144,228,32,114,207,32,204,207,2 
30,192,76,147,252,32,153,207,32,114 <162> 

1090 DATA207,153,60,3,200,192,7,208,245,96,1 
69,7,133,180,32,130,207,38,189,198 <22> 

1100 DATA180,16,247,165,189,96,169,16,44,13, 
220,240,251,173,13,221,142,7,221,72 <30> 

1110 DAT Al 69,25, 141,15,221,104,74,74,96,32,2 
3,248,169,23,133,1,32,204,207,120 <43> 

1120 DATA132,158,169,7,141,6,221,162,1,32,13 
0,207,38,189,165,189,201,2,208,245 <232> 

1130 DATA160,8,32, 114,207,201 ,2,240,249,196, 

189,208,232,32,114,207,136,208,246 < 73> 

1140 DATA96, 169, 11,141,17,208, 162,0,202,208, 
253,136,208,250,96,-1 <210> 

1150 REM SAVE <43> 

1160 DATAS2736,32,241,183,134, 172,32,241,1B3 
,134,173,32-241,183,134,174,32,241 <0> 

1170 DATA183,134,175,32,241,183,134,176,32,2 
41,183,134,177,169,0,133,183,32,56 <197> 

1180 DATA248,32,143,246,32,193,206 ,120,169,5 
,133,181,32,117,206,162,8,185,172,0 <250> 

1190 DATA32,147,206,162,6,200,192,7,20B,243, 

169.2.133.181.32.117.206.132.158 <7> 

1200 DATA162.7,177, 172,32, 147,206, 162,3,230, 
172,208,4,230,173,202,202,165,172 <7> 

1210 DATA197,174, 165,173,229, 175, 144,231,165 

,158,32,147,206,162,7,136,208,246 <208> 

1220 DATA230,192,76,147,252,160,0,169,2,32,1 
47,206,162,7,136,192,8,208,244,162 <145> 

1230 DATA5, 198, 181 ,208,238,152,32,147,206, 16 

2.7.136.208.247.152.133.189.69.158 <128> 
1240 DATA133,158,169,7,133,180,6,189,165,1,4 

1,247,32,180,206,162,17,9,8,32,180 <222> 

1250 DATA206,162,14,198,180,16,234,96,202,20 

8.253.144.5.162.11.202.208.253.133 <B0> 

1260 DATA1,96,169,11,141,17,208,169,23,133,1 
,162,0,202,208,253,136,208,250,96 <111> 

1270 DATA—1,—1 s <33> 

ENDE DES LISTINGS 


Ordnung ist 
das halbe Leben! 

Diskettenverwaltung für den CPC-464 /6128 


Wie umständlich gestaltet sich 
oft die Suche? Auf welcher 
Diskette und unter welchem 
Namen ist das gesuchte File zu 
finden? In einer ungeordneten 
Ansammlung von Files, von 
denen viele häufig gar nicht 
mehr benötigt werden, muß 
das File gefunden werden, das 
unbedingt bearbeitet werden 
soll. 

Mit diesem Programm können 
Sie auf den zu bearbeitenden 
Disketten Ordnung schaffen. 
Die Diskettenverwaltung er¬ 
leichtert es Ihnen, in einem 


schnellen Überblick die Da¬ 
teien einer Diskette zu 
erfassen. 

Ein vollständiges Inhaltsver¬ 
zeichnis kann ausgegeben 
werden. Die Diskettenverwal¬ 
tung ermöglicht es Ihnen, die 
Dateien einer Diskette Ver¬ 


zeichnissen zuzuordnen, und 
nicht mehr benötigte Files von 
der Diskette zu löschen. Über 
die Endungen der Filenamen 
können die Files bestimmten 
User-Ebenen zugeordnet wer¬ 
den, und ein Ihrer Logik fol¬ 
gendes Ordnungsystem kann 


aufgebaut werden. 

Als weitere Funktionen bietet 
das Menü des Programms die 
Möglichkeit, Files umzubenen¬ 
nen. Auch können Disketten 
vollständig gelöscht werden, 
User-Bereiche durchsehen und 
geändert werden. Über die 
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unterste Funktion des Menüs 
können Sie sogar Files un¬ 
sichtbar werden lassen. 

Auf diese Funktion sollten Sie 
allerdings nur zurückgreifen, 
wenn Sie mit einer VORTEX 5 
1/4-ZOLL-Floppy arbeiten. An 
sonsten besteht die Gefahr ei¬ 
nes Absturzes! 

Nach dem Eintippen des Li- 
stings kann das Programm mit 
LOAD geladen und mit RUN 
gestartet werden. 

Das menügesteuerte Pro¬ 
gramm läßt sich sehr leicht be¬ 
dienen, da das Menü einfach, 
übersichtlich und selbsterklä¬ 
rend gestaltet ist. 

Wenn Sie sich die Aufgabe 
stellen, ein "Diskettenchaos” 
zu ordnen, kann Ihnen die Dis¬ 
kettenverwaltung zu einer wir¬ 
klichen Hilfe werden. Sie 
sollten sie daher besitzen! 



Das Listing 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V 2.0 


10 CLS {CF} 

20 MODE 1:LOCATE 11,13:PRINT"DISKETTENVE 
RWALTUNG" {OK} 

30 LOCATE 12,25:PRINT CHR*<164>;" 1987 b 
y PITSOFT" {EDI 

40 LOCATE 12,19:PRINT“ANY KEY TO GO ON:" {LCJ 
50 WHILE INKEY*«"":WEND CLNJ 

60 GOTO 10000 <DD> 

1000 LOCATE 40,23:A*=INKEY* {DA} 

1020 IF A*="1"THEN GOTO 2000 <AC> 

1030 IF A*«"2"THEN GOTO 3000 IHN! 

1040 IF A*="3"THEN GOTO 4000 {HM> 

1050 IF A*="4"THEN GOTO 5000 {CH> 

1060 IF A*="5"THEN GOTO 6000 {JO> 

1070 IF A*=“6"THEN GOTO 7000 {IJ} 

1080 IF A*»"7“THEN GOTO 8000 {II> 

1090 IF A**“8"THEN GOTO 9000 {PD> 

1100 GOTO 1000 {AI} 

2000 CLS {BB} 

2001 MODE 2 {DK} 

2002 PRINT“INHALTSVERZEICHNIS MIT ODER 0 

HNE KILO-BYTE-ANGABE <M/Q> ?“ {IB} 

2003 LINE INPUT B* {MJ} 

2005 IF B*«"M"OR B*="«"THEN GOTO 2010 {EH> 

2006 IF B*«"0“0R B*="o"THEN GOTO 2050 {KC} 

2007 GOTO 2007 {AB} 

2010 MODE 2:PLOT 0,0:DRAW 639,0:DRAW 639 

,399:DRAW 0,399:DRAM 0,0 {FM} 

2011 LOCATE 2,2:CAT {DG} 

2012 PRINT“ANY KEY TO GO ON:" {JI} 

2013 WHILE INKEY*«“"iWEND {IN} 

2014 RUN {CP} 

2050 MODE 2:PLOT 0,0:DRAW 639,0:DRAW 639 

,399:DRAW 0,399:DRAW 0,0 {PI} 

2051 LOCATE 2,2:IDIR {CK3 

2052 PRINT“ANY KEY TO GO ON:* {EM> 

2053 WHILE INKEY*«"“:WEND {KB} 


2054 RUN {DL> 

3000 CLS {CI} 

3001 MODE 2 {CH} 

3002 PRINT“WELCHER ART SIND DIE PROGRAMM 
E ? BITTE DIE DREI BUCHSTABEN HINTER DEM 

PUNKT" {ND} 

3003 PRINT"EINGEBEN ! Z.B.: BAS oder BIN 

oder PIC !" {NA} 

3004 INPUT"BITTE SO EINGEBEN: *.BAS od 

er «.BIN usw.,C* {AN} 

3005 MODE 2 {DD} 

3006 IDIR,@C* {PO} 

3007 PRINT"ANY KEY TO GO ON:“ {HB} 

3008 WHILE INKEY*«.WEND {GB} 

3009 RUN {DI} 

4000 MODE 2 {CP} 

4001 INPUT"NAME DES PROGRAMMS < ???????? 

.??? ):",D* {FG} 

4002 MODE 2:PLOT 0,0:DRAW 639,0:DRAW 639 

,399:DRAW 0,399:DRAW 0,0 {IH} 

4003 !ERA,@D* {LM3 

4004 PRINT”ANY KEY TO GO ON:" {AP} 

4005 WHILE INKEY*«"":WEND {JM} 

4006 RUN {CC} 

5000 MODE 2 {DM} 

5001 MODE 2:PLOT 0,0:DRAW 639,0:DRAW 639 

,399:DRAW 0,399:DRAW 0,0 {IH} 

5002 LOCATE 2,2:INPUT“ALTER PROGRAMMNAME 

< ????????.??? ):“,ALT* {AH} 

5003 LOCATE 2,4:INPUT"NEUER PROGRAMMNAME 

< ????????.??? >:",NEU* {AE} 

5004 !REN,@NEU*,@ALT* {MG} 

5005 PRINT"ANY KEY TO GO ON:" {FJ} 

5006 WHILE INKEY**.WEND {KO} 

5007 RUN {CA} 

6000 MODE 2 {CJ} 

6001 MODE 2:PLOT 0,0:DRAW 639,0:DRAW 639 

,399:DRAW 0,399:DRAW 0,0 ILC} 

6002 INPUT"SIND SIE GANZ SICHER,DASS SIE 
DIE DISKETTE VOLLSTAENDIG LOESCHEN WOLL 

EN <J/N)?“,F* IMG} 

6003 IF F*«“N"OR F*="n"THEN GOTO 6010 {NB} 

6004 IF F*=“0"OR F*="j"TUEN GOTO 6006 {IH} 

6005 GOTO 6005 {AB} 
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6006 MODE 2: PLOT 0,0:DRAW 639,0:DRAW 639 
,399:DRAW 0,399:DRAW 0,0:PRINT"GUT ! ENT 
SICHERN SIE DIE SCHREIBSCHUTZLOECHER..." 

SPRINT:PRINT"ANY KEY TO GO ON:“sWHILE IN 
KEY*=.. {Mir 

6007 A$="#.*" <NG> 

6008 !ERA,@A* CNM} 

6009 PRINT"ANY KEY TO GO ON:":WHILE INKE 

Y*="":WEND {CD} 

6010 RUN fBH> 

7000 MODE 2 tDO> 

7001 FOR A=0 TO 16 tEL> 

7002 IF A=16 THEN GOTO 7015 {PH 

7003 CLS £BB3 

7004 !USER,As CAT <IMJ 

7005 PRINT"ANY KEY FOR NEXT USER...!" {KP} 

7006 WHILE INKEY*="“:WEND {HI} 

7007 NEXT {AK} 

7008 GOTO 7002 {AD} 

7015 !USER,0 {FH} 

7016 PRINT"ANY KEY TO GO ON:“ <JL> 

7017 WHILE INKEY*="":WEND {HI} 

7018 RUN <CG3 

8000 MODE 2 <ED> 

8001 INPUT"WELCHER USER-BEREICH SOLL ANG 

EWAEHLT WERDEN <0-15> ?",H {MN} 

8002 !USER,H <IE> 

8003 CLS: PRINT"0.K. ! GEWUENSCHTER USER-B 

EREICH IST ANGEWAEHLT !" <PJJ 

8004 PRINT"ANY KEY TO GO ON:" ICDJ 

8005 WHILE INKEY*=“":WEND {MA> 

8006 RUN fCOi 

9000 MODE 2 £EA> 

9001 PRINT"ACHTUNG ! PUNKT ACHT IST NUR 

BEI ANGESCHLOSSENEM VORTEX 5 1/4-ZOLL-FL 
OPPY-" £DN> 

9002 PRINT:PRINT"CONTROLER LAUFFAEHIG ! 

IST EIN SOLCHER NICHT ANGESCHLOSSEN,DROH 

T EIN SYSTEM-" £DCJ 

9003 PRINT:PRINT"ABSTURZ ! VORSICHT !“ <FJ} 

9004 PRINTSPRINT:INPUT"WEITERMACHEN <J/N 

) ?",I* <HB3 

9005 IF I*="J"OR I*=“j"THEN GOTO 9010 tND> 

9006 IF I*="N"OR IT="n"THEN GOTO 9020 £HF} 

9007 GOTO 9007 <PJ3 

9010 MODE 2 <ED> 

9011 INPUT"PROGRAMMNAME < ????????.??? > 

?",A* <EJJ 

9012 !ATTRIBUT,A*,S <ODJ 

9013 GOTO 9020 £ONJ 


9020 PRINT:PRINT:PRINT"ANY KEY TO GO ON: 

" £MA> 

9021 WHILE INKEY*="":WEND {KB} 

9022 RUN £DL> 

9999 REM *** HAUPTPROGRAMM *** {CD} 

10000 CLS:MODE 2 {PF1 

10001 LOCATE 12,2:PRINT“<C) Copyright 19 

88 by Peter Hennke ( Pitso-ft ) “ {OM> 

10002 LOCATE 5,5:PRINT"1“:LOCATE 11,5:PR 

INT"INHALTSVERZEICHNIS" {MC> 

10003 LOCATE 5,7:PRINT"2":LOCATE 11,7:PR 

INT"DIRECTORY BESTIMMTER DATEIEN“ {MD} 

10004 LOCATE 5,9:PRINT"3“:LOCATE 11,9:PR 

INT"FILE VON DISK LOESCHEN" {JA} 

10005 LOCATE 5,11:PRINT"4":LOCATE 11,11: 

PRINT"FILE AUF DISK UMBENENNEN" {AN} 

10006 LOCATE 5,13:PRINT“5":LOCATE 11,13: 

PRINT"DISK VOLLSTAENDIG LOESCHEN” {BO 

10007 LOCATE 5,15:PRINT"6":LOCATE 11,15« 

PRINT"USER-BEREICHE DURCHSEHEN" {JD> 

10008 LOCATE 5,17:PRINT"7":L0CATE 11,17: 

PRINT”USER—BEREICH AENDERN“ {HA} 


10009 LOCATE 5,19:PRINT"B":LOCATE 11,19: 
PRINT”FILE UNSICHTBAR MACHEN"-.LOCATE 50, 
5:PRINT"A C H T U N G ! ! !":LOCATE 48,7 
«PRINT"PROGRAMMPUNKT ACHT IST NUR ":LOCA 
TE 48,11 SPRINT"LAUFFAEHIG,WENN EINE VORT 
EX -":LOCATE 48,15:PRINT"5 1/4-ZOLL-FLOP 


PY ANGE-“ {HH} 

10010 LOCATE 48,19:PRINT“SCHL0SSEN IST • 

" £PB} 

10011 LOCATE 18,23:PRINT"TREFFEN SIE IHR 

E WAHL:“ {OE} 

10012 READ X,Y {GLJ 

10013 PLOT X,Y £EP} 

10014 READ x,y {JF} 

10015 IF x«1000 THEN 10050 {GN} 

10016 IF x=2000 THEN 10012 {EB} 

10017 DRAW x,y {LE} 

10018 GOTO 10014 <OI} 

10019 REM *** DATA—ZEI LEN *** {GK} 

10020 DATA 0,0,639,0,639,399,0,399,0,0,2 

000,2000 {HM} 

10021 DATA 0,350,639,350,2000,2000 {DE} 

10022 DATA 64,350,64,0,2000,2000 {01} 

10023 DATA 64,80,640,80,2000,2000 {HL} 

10024 DATA 352,350,352,80,1000,1000 {LH} 

10050 GOTO 1000 {BE} 


ENDE DES LISTINGS 


Da liegt doch was im Wald 

Trick by Trees für den CPC 464/664/6128 


Ein schnelles Actionspiel mit 
taktischen Elementen und ex- 
cellenter Grafik erwartet Sie 
hier! Die Hauptperson, den 
kleinen Runky, kennen Sie viel¬ 
leicht noch von seinem Aben¬ 
teuer bei den „SPEEDY- 
FROGS”. Nun hat es ihn in ei¬ 
nen riesigen Wald verschlagen, 
wo er die verstreuten Taler auf¬ 


sammeln muß. 

Der Wald besteht aus neun 
einzelnen Abschnitten, die je¬ 
derzeit unabhängig von Score 
oder der Anzahl an Leben be¬ 
treten werden können. Bei je¬ 
dem Screen (erstes und letztes 
ausgenommen) sehen Sie am 
oberen und unteren Rand ei¬ 


nen Durschlupf zwischen zwei 
Bäumen. Um in den zweiten 
Level zu gelangen, steuern Sie 
auf die Lücke zu, und ziehen 
den Joystick nach unten. Im 
zweiten Screen angekommen, 
gehen Sie mit Runky auf Taler¬ 
jagd. Die Punkte, die der Kleine 
für seine Sammelaktion erhält, 
richten sich nach dem Level 


und den verbliebenen Leben. 

Gehen Sie also mit Ihren fünf 
Leben sehr sorgsam um, Sie 
wollen doch sicherlich in die 
Bestenliste kommen. 

Zur Eingabe: 

Generierung auf Kassette 
Alle fünf Programmteile 
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(„TRICK BY TREES”, „LAND¬ 
SCAPE”, „SPRITES”, „COM- 
MANDS" und „TOPTEN”) auf 
Kassette 1 bringen. Dann Teil 
1 laden und auf Kassette 2 sa- 
ven. Nun Kassette 1 einlegen 
und Teil 2 starten. 

Die folgenden Erstellungs¬ 
programme werden selbstän¬ 
dig gestartet. Teil 5 meldet 
„PRESS ANY KEY TO SAVE”. 
Jetzt kann man Kassette 2 
einlegen und REC + PLAY 
drücken. 


Hinter dem Hauptprogramm 
werden nun .TBTDATA.BIN” 
sowie „TBTOP.FIL” ab- 
gesavet. Zum Spielen muß 
man dann nur noch das 
Hauptprogramm auf Kassette 2 
starten. 

Generierung auf Diskette 
Wenn alle Teile auf der Disk 
sind, braucht nur Teil 2 gestar¬ 
tet werden. Ist alles abgespei¬ 
chert, wird nur Teil 1 gestartet, 
und schon ist Action angesagt! 


Teil 1 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V 2.0 


1000 '- toc> 

1010 '-•- TRICK BY TREES- {EA3 

1020 '— Part 1 THE GAME — <NJ> 

1030 •— (c) im Juni 1907 — {NO} 

1040 ’— by Alexander Stroh — IHN} 

1050 •- {LN} 

1060 •— CCFC,464/664/61203 — tLF) 

1070 •- {MH} 

1000 ' [11 PREPARING PARTS <KD> 

1090 ' Fi II memory {PL} 

1100 SYMBOL AFTER 256«MEMORY &0FFF:SYMBO 
L AFTER 32 CHH> 

1110 GOSUB 1970:MODE 0:PAPER 0:CLS tLFJ 

1120 PAPER 3: PEN IsLOCATE 5,13:PRINT ,, PLE 
ASE WAIT" {HF} 

1130 MOVE 124,192« DRAW 124,200,3«DRAWR 3 
40,0 {NN> 

1140 MOVE 120,190:DRAWR 356,0,4:DRAWR 0, 

20 {MKJ 

1150 DRAWR-356,0:DRAWR 0,-22:DRAWR 356,0 {JG} 

1160 FOR 1=0 TO 40 STEP 2:M0VE 122+1,212 
+1 {NA> 

1170 DRAWR 356,0:DRAWR 0,-22:NEXT {DC> 

1100 BORDER 13:GOSUB 1930 CGKJ 

1190 LOAD” !tbtdata.bin",*<9000:CALL *<9D00 {JK> 

1200 DEFINT c-z:DIM a(02),bs<10>,n*<10), 
d$ (10) UK> 

1210 OPENIN"!tbtop.fi1":FQR 1=1 TO 10 {FA} 

1220 INPUT#9,n$(1):INPUT#9,bs<1) {AB} 

1230 INPUT#9,d»(1):NEXT:CLOSEIN {AH} 

1240 FOR a=S<B900 TO S-SFFF {JF} 

1250 POKE a,&EF AND PEEK <a):NEXT {LB} 

1260 c=0: FOR b=*<9000 TO 8.909B {NC} 

1270 IF PEEK <b)=9 THEN a<c>=b:c=c+l {ID} 

1200 NEXT {BB} 

1290 ENT 1,90,5,2:ENV 1,1,1,2,4,4,1 {FJ} 

1300 ENV 2,2,4,1,1,0,10,0,-1,2«ENV 3,2,7 
,1,1,0,10,14,-1,5 {CBI 

1310 ' Welcome {DO} 

1320 PAPER 0:CLS: I LOOP,2:BORDER 1:FOR 1 = 

0 TO 3:INK 1,1:NEXT:MODE 1 {DH} 

1330 PEN 1:LOCATE 14,1:PRINT"TRICK BY TR 
EES” {DO 

1340 PEN 2:LOCATE 19,3:PRINT CHR*<164>+” 
by" {CB} 

1350 PEN 3:LOCATE 16,5:PRINT"SUPRA-S0FT" {HB} 
1360 PEN 2:PRINT:PRINT {DL} 

1370 PRINT” Start up nox lor TRICK BY TR 
EES! The" {PA} 


1300 PRINT" time goes by, your courage g 
rows - but" {JK} 

1390 PRINT" everywhere close by the dang 
er ! " {MF> 

1400 PEN 3:PRINT {EP} 

1410 PRINT" Running around, collecting t 
he items — 11 {ND} 

1420 PRINT” you probably think this task 
is easy." {AF} 

1430 PRINT" Your opinion, BATTOO will ch 
ange it!" {AI} 

1440 PEN 2: PRINT {HO 

1450 PRINT" Direct RUNKY with Joystick a 
nd care." {AK} 

1460 PRINT" Of course, you can use curso 
r—keys too.{EF} 
1470 PRINT” Press P for a little break a 
nd press" {01} 

1400 PRINT" DEL to abort the game. GODD 
LUCK !!!!!" {HC} 

1490 PEN 1:PRINT«PRINT {FE} 

1500 PRINT" PRESS ANY KEY TO CONTI 

NUE;» {AP} 

1510 iCOLOR.OLD:SDELETE»!GET.KEY:RANDOMI 
ZE TIME {ED} 

1520 ' Set up screen {GF} 

1530 GOSUB 1970:MODE 0»PAPER 5«L0CATE 1, 

15:PRINT CHR*<20> {NB} 

1540 PEN 6:LOCATE 4,16:PRINT"TRICK BY TR 
EES"«LOCATE 4,17:PRINT"TRICK BY TREES” {BM} 

1550 !STRETCH,1,17,20:!STRETCH,1,10,20«I 
STRETCH,1,16,20:!STRETCH,1,16,20 {HB} 

1560 FOR 1=0 TO 92 STEP 4:MOVE 1,112:DRA 
WR 0,1 /2,6: MOVE 630-1 , 112: DRAWR 0’,l/2 {OP} 

1570 NEXT:FOR 1=104 TO 110 STEP 2:MOVE 0 
,1:DRAWR 92,0:MOVE 630,1:DRAWR-92,0 {KK} 

1500 NEXT:MOVE 0,94:DRAWR 63S,0:MOVER 0, 

-2:DRAWR-630,0;PAPER 6:PEN 0 CEA} 

1590 LOCATE 1,21:PRINT"LEVEL:"CHR*<9>"SC 

ORE:"CHR*<9>"LIFES:":iSTRETCH,1,21,20 {IHJ 

1600 LOCATE 1,23:PRINT"000001”CHR$(9)"00 

0000"CHR*(9)"000005":!STRETCH,1,23,20 {AO> 

1610 MOVE 0,B0:DRAWR 100,0:MOVER 36,0:DR 

AWR 100,0:MOVER 36,0:DRAWR 100,0 {FN> 

1620 ' Define variables {FM} 

1630 b=0:c=l:x=16:y=3:x1=16:yl=3:s=0:lev 

=0:Iiv=5 {J03 

1640 GOSUB 1910:x=xl:y=y1:FOR 1=0 TO 13: 

!LINE.ON,I:[LAST,lev*12+l«NEXT {LM} 

1650 POKE &A670.0: [SPRITE,x ,y,s: IBUILD.-G 
OSUB 1930:IF PEEK(&A670)THEN 2140 {HB> 

1660 ' C23 MAIN PROGRAM {EH} 

1670 * Move Runky {IA} 

1600 xl=x:yl=y:sl=s:[DELETE {FM3 

1690 IF HINKEY(27)THEN[QUIET:[DELETE:iG 
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ET.KEY:GOTO 1680 CEL} 

1700 IF 1+INKEY(79)THEN!BUIET:1i v=l:GOTO 
2220 tHO> 

1710 IF INKEY<8)X0R INKEY(74)THEN x=x-l: 
s=0:GOTO 1760 CNA} 

1720 IF INKEY <1)XQR INKEY(75)THEN x=x+l: 
s=2:GOTO 1760 COJ} 

1730 IF INKEY(2)XOR INKEY(73)THEN IF y=l 
4 THEN 1990 ELSE y=y+l:s=4:GOTO 1760 <BO> 

1740 IF INKEY(0)XOR INKEY(72)THEN IF y=l 
THEN 2030 ELSE y=y-l:s=6:G0T0 1760 COH) 

1750 GOTO 1790 CNB} 

1760 !CLR,x1,yl,sl:IF *<4 THEN s=s+x MOD 
2 ELSE s=s+y MOD 2 CPJ} 

1770 SOUND 2,213,5,1,1:!SPRITE,x,y,s:IF 
PEEK (S<A670) THEN 2140 CJO} 

1780 • Move Battoo ICB> 

1790 IF gf THEN gf=0:GOTO 1840 CLC1 

1800 IF RND>0.95 OR sx<4 OR sx>140 THEN 
dx=-dx CAQ} 

1810 IF RND>0.95 OR sy<104 OR sy>194 THE 
N dy=-dy tMIJ 

1820 sn=5x+dx:sy=sy+dy:sn=l-sn CIL} 

1830 GOSUB 1880:IF PEEK(&A670)THEN 2220 
ELSE 1850 UH> 

1840 SSHAFE.sx,sy,sn <DL> 

1850 SOUND 4,1768,10,1,1,,3:FOR 1 = 1 TO 1 
5-1ev:NEXT:GOTO 1680 CIN} 

1860 ’ 131 ROUTINES IHM] 

1870 ' Crashtest €DH> 

1880 IF gf THEN 1890 ELSE!GROUND tPN> 

1890 !CLR,x,y,s:!SHAPE,sx,sy,sn:!SPRITE, 
x,y,s:RETURN CMM} 

1900 ' Start up for Battoo CDO} 

1910 gf=1:sx=72:sy=150:dx=4*SGN(RND-RND) 

:dy=4*SGN(RND-RND):RETURN tPOJ 

1920 ' INK* on <00> 

1930 INK 0,13:INK 1,24:INK 2,2:INK 3,6:1 
NK 4,0:INK 5,0:INK 6,26:INK 7,6,24 <LL> 

1940 INK 8,2:INK 9,20:INK 10,1:INK 11,24 
,6:INK 12,9:INK 13,18:INK 14,0:INK 15,3 <GEJ 
1950 RETURN <AF> 

1960 ' INKs off <HL> 

1970 BORDER 0:FOR 1=0 TO 15:INK 1,0:NEXT 
:RETURN <IH> 

1980 ’ Scroll up <P01- 

1990 IF lev=8 THEN 1680 ELSE!QUIET:!GROU 
ND: gf = 1 <EH> 

2000 1ev=lev+1:FOR 1=2 TO 13:iTREE.UPi!L 
AST,lev*12+l:NEXT <FE> 

2010 y=2:GOSUB 2070:GOTO 1680 CNFJ 

2020 ’ Scrol1 down <CG5 

2030 IF 1 ev=0 THEN 1680 ELSE!QUIETi ‘.GROU 
ND:gf=l <MD> 

2040 lev=lev-1:FOR 1=11 TO 0 STEP-lliTRE 
E.DOWN:iFIRST,lev*l2+1:NEXT <LA> 

2050 y=13:GOSUB 2070:GOTO 1680 <OEJ 

2060 ' Display level IHOJ 

2070 LOCATE 6,23:PRINT USING"#"jlev+1;:I 
STRETCH,6,23,1:RETURN <HDJ 

2080 ' Display score CIE} 

2090 sc*=STR*(b>:sc*=RIGHT*(sc*,LEN(sc*> 

-1):1sc=LEN(sei):LOCATE 14-lsc,23 <OL> 

2100 PRINT sc*;:(STRETCH,14-lsc,23,lse:R 
ETURN CEE} 

2110 ' Display lifes CJD> 

2120 LOCATE 20,23:PRINT USING"#";1iv;:IS 
TRETCH,20,23,1:RETURN <PL> 

2130 ' Check -for B or crash <KO> 

2140 pe=PEEK(&A670):IF pe<>237 AND pe<>2 
22 AND pe MOD 84 THEN 2220 <MA> 

2150 ' Got B <EKJ 

2160 IF gf THEN 2170 ELSE!GROUND:gf=l <NE> 


2170 PAPER 0:LOCATE x,y:PRINT" ";:!SPRIT 
E,x,y,s <DO> 

2180 POKE &BFFF+lev*240+(y—1)*20+x,0 CHH} 

2190 SOUND 1,49,0,0,2:POKE *<A670,0: PAPER 
6 <OGJ 

2200 b=b+(1ev+1)*1iv*75:GOSUB 2090:GOTO 
1790 <HFJ 

2210 ' Crash <AB> 

2220 IF gf THEN 2230 ELSE!GROUND <GDJ 

2230 !CLR,x,y,s:SOUND 2,243,15,8,1,0,2:1 
iv=liv-l:GOSUB 2120:IF liv THEN 1640 CFO> 

2240 ’ End of a round CMB} 

2250 iQL’TET: !CLR,x ,y,s:FOR 1-0 TO 13:!LI 
NE.ON,.f _AST,lev*12+l:NEXT <FCJ 

2260 !LLJP,3:SOUND 4,0,0,0,3,0,3 <PD> 

2270 FOR 1=0 TO 82:P0KE a(1),9:NEXT:FOR 
1=260 TO 350 STEP 2:M0VE 200,1 <IJJ 

2280 DRAWR 236,0,6:NEXTiPEN 4:INK 4,26:L 
□CATE 9,5:PRINT"GAME" <KH> 

2290 LOCATE 9,7:PRINT"0VER":{STRETCH,9,5 
,4:!STRETCH,9,7,4 <PL> 

2300 SBUILD:iBUILD:INK 4,2:!L00P,12 tCA] 

2310 ' Topten (type in) CID} 

2320 IF b<=bs(10)THEN 2650 ELSE bs(10)=b 
:GOSUB 1970:MODE 1:PAPER 0:PEN 1:CLS CMJ} 

2330 LOCATE 19,1:PRINT"YOUR":PEN 2:L0CAT 
E 17,3:PRINT"SCORE IS" CJK} 

2340 PEN 1:LOCATE 18,5:PRINT"IN THE":PEN 
2:LOCATE 15,7:PRINT"HALL OF FAME" <LCJ 

2350 LOCATE 12,9:PEN l:PRINT"OH GIMME YO 
UR NAME":INK 1,18:INK 2,26:INK 3,6 CDA} 

2360 PEN 3:LOCATE 1,11:PRINT CHR*(20):!D 
ELETE:LOCATE 12,11:LINE INPUT"",n*(10) <KFJ 

2370 ln=LEN(n*(10)):IF ln=0 OR ln>16 THE 
N 2360 <JD> 

2380 s*=STRING*(17-1n,45)iLOCATE 13+ln,l 
1:PRINT ** <JM1 

2390 PEN 2:LOCATE 14,13:PRINT"I NEED THE 
DAY" <0KJ 

2400 PEN 1:LOCATE 12,15;PRINT"PLEASE DO 
THE SAME" <OF> 

2410 PEN 3:LOCATE 1,17:PRINT CHR*(20):!D 
ELETE:LOCATE 16,17iLINE INPUT” H ,d*(10) <KH) 

2420 IF LEN(d*(10))< >10 THEN 2410 <OD> 

2430 PEN 2:LOCATE 12,19:PRINT"YOUR HEART 
IS LIKE" CBN} 

2440 PEN 1:LOCATE 11,21:PRINT H BOMB'S BUR 
NING FLAME" <P0> 

2450 PEN 2:LOCATE 12,23:PRINT"0KAY,PRESS 
>SPACE<" <OF> 

2460 PEN 1:LOCATE 13,25:PRINT"T0 SEE YOU 
R GAME":iDELETE <FA> 

2470 IF INKEY(47)THEN 2470 ELSE GOSUB 19 
70:MODE 1:PEN 1 CIE} 

2480 ' Topten (sort) CKN} 

2490 FOR 1=10 TO 2 STEP-1 CPG} 

2500 IF bs(l)<=bs(1-1)THEN 2540 CPN} 

2510 bz=bs(l-l):bs(l-l)=b*(l):bs(l)=bz COL} 

2520 z*=n*(1—1):n*(1-1)=n*(1):n*(1)=z* CNE1 

2530 z*=d#(1—1):d*(1-1)=d#(1):d*(1)=z* CNP} 

2540 NEXT CBD} 

2550 ' Topten (print) CF01 

2560 LOCATE 13,1:PRINT"THE HALL OF FAME" 

:LOCATE 13,2:PRINT STRING*(16,45) CHD} 

2570 PEN 2:FOR 1=1 TO 10:LOCATE 21,2+1*2 
:PRINT USING”«#####";bs(1> CKG} 

2580 alog=INT(LOG10(bs(l))):LOCATE 21,2+ 

1*2:PRINT STRING*(5-alog,4B):NEXT CLD} 

2590 PEN 3:FOR 1=1 TO 10:LOCATE 1,2+1*2; 

PRINT n*(1):1n=LEN(n*(1)) CPA} 

2600 LOCATE l+ln,2+l*2:PRINT 8TRING*<16- 
ln,46):LOCATE 31,2+1*2:PRINT d*(l):NEXT CLM} 

2610 PEN 1:LOCATE 8,24:PRINT STRING*(26, 
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45 > 

2620 LOCATE 8,25sPRINT"PRESS ANY KEY TO 
CONTINUE;"; 

2630 INK 1,18:INK 2,26s INK 3,6s(DELETE:I 

GET.KEY 

2640 ' Exit 

2650 GOSUB 1970:MODE 0:FOR 1=150 TO 250 
STEP 2sHOVE 96,1:DRAWR 440,0,2:NEXT 
2660 PAFER 2s PEN 1sLOCATE 5,11s PRINT"GAM 
E — OVER":(STRETCH,5,11,12 
2670 LOCATE 5,14sPRINT"AGAIN? (Y/WslST 
RETCH.5,14,12s !BUILD:INK 1,2s INK 2,26 
2680 IF 1+INKEY(43)THEN 1530 ELSE IF 1+1 
NKEY(46)THEN 2690 ELSE 2680 
2690 OPENOUT"!tbtop.f i 1 " :FOR 1=1 TO 10 
2700 PRINT#9,n*<l):PRINT*9,bs<1):PRINT#9 
,d*(l> 

2710 NEXTsCLOSEOUTsCLEAR:SYMBOL AFTER 25 
6 

2720 PAPER 0:PEN 1sMODE 1s(COLOR.OLD:IBU 
ILDsiDELETEsEND 

ENDE DES LI 8 TINGS 


Teil 2 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V 2.0 

1000 '- 

1010 '-TRICK BY TREES- 

1020 '— Part 2 LANDSCAPE — 

1030 '— (c) im Juni 1987 — 

1040 '— by Alexander Stroh — 

1050 '- 

1060 MEMORY & 8 FFF:DEFINT a-z 

1070 MODE 1:PRINT"TBT LANDSCAPE...“ 

10B0 RESTORE 1130sFOR 1=0 TO 109 

1090 READ m*s FOR n=l TO 20 

1100 POKE 8cBFFF+I*20+n,VAL(MID*(m*,n,l>> 

1110 NEXT n,lsRUN"'SPRITES" 

1120 •-AREA 1- 

1130 DATA 11111111111111111111 
1140 DATA 22222222222222222222 
1150 DATA 11935031575000000001 
1160 DATA 22046042686000000092 
1170 DATA 13000005107301710711 
1180 DATA 24000006208402820822 
1190 DATA 15151303000001700001 
1200 DATA 26262404000002890002 
1210 DATA 19000000030735103501 
1220 DATA 20000000040846204692 
1230 DATA 10130750731350000151 
1240 DATA 29240869842460009262 
1250 DATA 13575313715317031751 

1260 ’-AREA 2- 

1270 DATA 24686424826428042862 
1280 DATA 13009370530000000001 
1290 DATA 24009480640000000002 
1300 DATA 10971300000119517931 
1310 DATA 20082490000220628042 
1320 DATA 10350137305300000001 
1330 DATA 20469248406400000002 
1340 DATA 10000003570001351071 
1350 DATA 20000004680002462082 
1360 DATA 15010300000135000001 
1370 DATA 26929400000246009002 
1380 DATA 13751570315735157371 

1390 '-AREA 3- 

1400 DATA 248626B0426846268482 
1410 DATA 19000350000001739001 
1420 DATA 20000460000092840002 
1430 DATA 17503790535031391031 


{LF1 1440 DATA 28604800646042402042 
1450 DATA 17000001517000000001 
<OC> 1460 DATA 28000002628000000002 
1470 DATA 19013057137150135701 
{JI1 1480 DATA 20024068248269246802 
{HB1 1490 DATA 10370000001353090001 
1500 DATA 20489000092464000002 
{LI1 1510 DATA 10573137571375313531 

1520 •-AREA 4- 

{FF1 1530 DATA 20684248682486424642 
1540 DATA 10000003500137000591 
{PA1 1550 DATA 20000004600248900602 
1560 DATA 13503701003575310501 
{HN> 1570 DATA 24604802004686420602 
{PNI 1580 DATA 19003500013100000001 
1590 DATA 29004600024200000002 
{CA1 1600 DATA 17515001009003510701 
1610 DATA 28626002000004620802 
{JOJ 1620 DATA 13900053017501000391 
1630 DATA 24000064028602000492 
tPFl 1640 DATA 13575315713517301751 

1650 ’-AREA 5- 

1660 DATA 24686426824628402862 

■ 1670 DATA 17530090015719000001 
1680 DATA 28640000026829000002 
1690 DATA 10000103000153057301 
1700 DATA 29000294000264068402 
1710 DATA 15370315010000030001 
1720 DATA 26480426020000040002 
{OC1 1730 DATA 10000003000570513071 
tEAI 1740 DATA 20000094000689624082 
IEOI 1750 DATA 13701303570130070001 
{NOI 1760 DATA 24B92404680240089092 
IHN! 1770 DATA 17531571350173175131 

<LN> 1780 ’-AREA 6 -- 

<GP> 1790 DATA 28642682460284286242 
IGOI 1800 DATA 13009379530000050001 
<MII 1810 DATA 24000480640000069092 
CCNI 1820 DATA 10071300000110517031 
tBPl 1830 DATA 20082400000220628042 
<ECI 1840 DATA 10350107305300000091 
<JF> 1850 DATA 2046020B496400000002 
{ON1 1860 DATA 10000003579001351071 
{LMI 1870 DATA 20000004680002462082 
<MEI 1080 DATA 15010300001035900001 
{DN1 1090 DATA 26920400002046900002 
{OL1 1900 DATA 17351573737051573151 

{AC1 1910 ■-AREA 7- 

CBBI 1920 DATA 2B4626B484B062684262 
{JEI 1930 DATA 11935031575000000001 
CBC1 1940 DATA 22046042686000000002 
tGMl 1950 DATA 13000005197301713791 
tJHl I960 DATA 24000006208402824892 
{LGI 1970 DATA 15151303000001700001 
{BPI 1980 DATA 26262404000002809902 
IDNI 1990 DATA 10000000030735103501 
{IM! 2000 DATA 20000000040846204602 
{GDI 2010 DATA 10130750731350000151 
{DPI 2020 DATA 29249869842460000262 
{MEI 2030 DATA 13575313715317031751 

CIA1 2040 •-AREA 8 - 

{DAI 2050 DATA 246B6424B26420042B62 
{MM1 2060 DATA 13009370530000000001 
{NAJ 2070 DATA 24009480640000000002 
{JBI 2080 DATA 10071300000110517031 
fOGI 2090 DATA 20082490000220628042 
{HKI 2100 DATA 13050137305300000001 
tJJI 2110 DATA 24060248496400000002 
IJKI 2120 DATA 10000003570001351071 
<FBI 2130 DATA 200000046B00024620B2 
{HHI 2140 DATA 15010300000135900091 
{MG! 2150 DATA 26929400000246000002 
{KOI 2160 DATA 13751570315735157371 


Compute mit 


{CD! 

{GHI 

{GBl 

{NC1 

{DE! 

{NB1 

{III 

{KOI 

{AMI 

{MDI 

{BLI 

{BOI 

{DK1 

{MN1 

{LAI 

{001 

{PFI 

{D01 

{EB1 

{GJ1 

{IEI 

{MNI 

{HP1 

{PLI 

{FAI 

{AKI 

{KEI 

{0J1 

{JI1 

{DK1 

{LCI 

{MLI 

{LJ1 

{OKI 

{JK1 

{IP1 

{FLI 

{MMI 

{DK1 

{HEI 

{PDI 

{0H1 

{FKI 

{MGI 

{FKI 

{BC1 

{CL1 

{Mil 

{A01 

{FKI 

{MK1 

{IL1 

{LDI 

{OHI 

{LGI 

{GG1 

{CAI 

{KEI 

{ILI 

{AMI 

{LAI 

{INI 

{QEI 

{MEI 

{MNI 

{BMI 

{ JFI 

{MH1 

{OJI 

{NK1 

{LF1 

{All 

(DC1 
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2170 '-AREA 9- {NB} 

2180 DATA 24862680426846268482 {AN} 
2190 DATA 10990350000001730001 <BDJ 
2200 DATA 20000460000002849092 {IA> 
2210 DATA 17503700535031301031 CJL> 
2220 DATA 28604800646042492042 {CP> 
2230 DATA 17000001517000000001 {HI} 
2240 DATA 28000002628000000002 {EG} 
2250 DATA 10013057137150135701 {PG} 
2260 DATA 20024068248260246802 {PA} 
2270 DATA 10370000091353900001 {GB} 
2280 DATA 294B0000092464900002 {CL} 
2290 DATA 11111111111111111111 {DL} 
2300 DATA 22222222222222222222 {PD} 


ENDE DES LISTINGS 


Teil 3 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V 2.0 


1000 


{OC} 


1010 --TRICK BY TREES- {EA} 

1020 '— Part 3 SPRITES — {DI} 
1030 '— (c) im Juni 1987 — {NO} 
1040 '— by Alexander Stroh — {HN} 

1050 '- {LN} 

1060 DEFINT a-z:RESTORE 1120 {CE} 
1070 PRINT:PRINT"TBT SPRITES..." {AF} 
1080 FOR 1*0 TO &2C0:READ m* {NN} 
1090 POKE &9900+I .VALC’V+m*) {PD} 
1100 NEXT:RUN”!COMMANDS" {KI} 

1110 '-DATAS:- {PB} 

1120 DATA 00,33,33,00,11,33,33,22,33,33 {IE} 
1130 DATA B7,33,73,3B,73,3B,33,33,73,3B {FJ} 
1140 DATA 33,B7,73,3B,33,33,73,3B,73,3B {MK} 
1150 DATA B7,33,11,33,33,22,00,73,3B,00 {OJ} 
1160 DATA 00,33,33,00,00,55,AA,00,00,55 {NI} 
1170 DATA AA,00,00,55,AA,00,00,55,AA,00 {OJ} 
1180 DATA 00,FF,FF,00,00,11,22,00,00,11 {DE} 
1190 DATA 22,00,00,11,22,00,00,33,33,00 {HL} 
1200 DATA 00,73,3B,00,00,73,3B,00,11,73 {LD} 
1210 DATA 3B,22,11,33,B7,22,11,33,B7,22 {OL} 
1220 DATA 33,33,B7,33,73,3B,73,3B,33,33 {IG} 
1230 DATA 73,3B,11,77,BB,22,00,55,AA,00 {NP} 
1240 DATA 00,55,AA,00,00,FF,FF,00,00,33 {OD} 
1250 DATA 33,00,00,73,3B,00,00,73,3B,00 {NA} 
1260 DATA 11,73,3B,22,11,33,B7,22,11,33 {CH} 
1270 DATA B7,22,11,33,B7,22,11,33,87,22 {CL} 
1280 DATA 11,33,B7,22,11,73,3B,22,00,73 {PN} 
1290 DATA 3B,00,00,73,3B,00,00,33,33,00 {GA} 
1300 DATA 00,55,AA,00,00,55,AA,00,00,FF {JC} 
1310 DATA FF,00,00,33,33,00,11,73,3B,22 {FI} 
1320 DATA 33,33,B7,33,73,3B,B7,33,33,33 {LF} 
1330 DATA B7,33,11,73,3B,22,00,33,33,00 {HJ} 
1340 DATA 00,55,AA,00,00,55,AA,00,00,55 {KE} 
1350 DATA AA,00,00,55,AA,00,00,55,AA,00 {GF} 
1360 DATA 00,55,AA,00,00,55,FF,00,00,FF {CA} 
1370 DATA FF,00,55,FF,FF,AA,00,54,AB,00 {CN} 
1380 DATA 00,ED,DE,00,54,ED,ED,A8,54,ED {JK} 
1390 DATA DE,AB,54,ED,ED,A8, 00, ED,DE, 00 {OP} 
1400 DATA 00, 54,A8, 00,00,00,00,00,00,00 {KB} 
1410 DATA 00,00,00,00,00,00,00,00,00,00 {HE} 
1420 DATA 00,00,00,00,00,00,00,00,00,00 {JD} 
1430 DATA 00,00,00,00,00,00,00,00,00,00 {OG} 
1440 DATA 01,03,02,00,01,0B,03, 00, 03,03 {CB} 
1450 DATA 03,02,00,01,03,03,01,03,03,03 {NI} 
1460 DATA 00, 82, 00, 82,41, 00,00, 41,C3, 00 {BB} 
1470 DATA 00, C3, 01 ,03,02, 00, 01,0B,03, 00 {LI} 
1480 DATA 03,03,03,02,00,01,03,03,01,03 {BJ} 
1490 DATA 03,03,00,82,00,82,00,82,00,82 <PI} 


1500 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

1660 

DATA 

1670 

DATA 

1680 

DATA 

1690 

DATA 

1700 

DATA 

1710 

DATA 

1720 

DATA 

1730 

DATA 

1740 

DATA 

1750 

DATA 

1760 

DATA 

1770 

DATA 

1780 

DATA 

1790 

DATA 

1800 

DATA 

1810 

DATA 

1820 

DATA 


41,82,41,82,00,01,03,02,00,03 
07,02,01,03,03,03,03,03,02,00 
03,03,03,02,41,00,41,00,82,00 
00,82,C3,00,00,C3,00,01,03,02 
00,03,07,02,01,03,03,03,03,03 
02,00,03,03,03,02,41,00,41,00 
41,00,41,00,41,82,41,82,01,03 
03,02,01,0B,07,02,03,03,03,03 
07,0F,0F,0B,03,03,03,03,00,82 
41,82,00,82,00,00,41,82,00,00 
01,03,03,02,01,0B,07,02,03,03 
03,03,07,0F,0F,0B,03,03,03,03 
41,82,41,00,00,00,41,00,00,00 
41,82,01,03,03,02,01,03,03,02 
03,03,03,03,03,03,03,03,03,03 
03,03,00,82,41,82,00,82,00,00 
41,82,00,00,01,03,03,02,01,03 
03,02,03,03,03,03,03,03,03,03 
03,03,03,03,41,82,41,00,00,00 
41,00,00,00,41,82,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,30,30,00,00,00 
00,00,30,10,20,30,00,00,00,10 
30,30,30,30,20,00,00,30,00,30 
30,00,30,00,00,20,00,10,20,00 
10,00,00,00,00,00,00,00,00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,20 
00,00,00,00,10,00,00,30,00,30 
30,00,30,00,00,10,30,10,20,30 
20,00,00,00,30,30,30,30,00,00 
00,00,00,30,30,00,00,00,00,00 
00 , 10 , 20 , 00 , 00 , 00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 


ENDE DES LISTINGS 


{MH} 

{NE} 

{PD} 

{KP} 

{JO} 

{EO} 

{DA} 

{FM} 

{OH} 

{CB} 

{MO} 

{HN} 

{MG} 

{KB} 

{OL} 

{JF} 

{HD} 

{AN} 

{OJ} 

{KO} 

{KC} 

{JB} 

{CO} 

{IJ} 

{KP} 

{HE} 

{NO} 

{HO} 

{JE} 

{BP} 

{FN} 

{NJ} 

{KP} 


Teil 4 
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V 2.0 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


'- TRICK BY TREES - 

'— Part 4 COMMANDS — 
'— <c) im Juni 1987 — 
'— by Alexander Stroh — 


DEFINT a-z:RESTORE 1120 
PRINT:PRINT"TBT COMMANDS..." 

FOR 1=0 TO &260:READ m* 

POKE &9D00+1 ,VAL<"V+m*> 

NEXT:RUN"!TOPTEN" 

'- DATAS: - 

DATA 01,09,9D,21,9B,9D,C3,D1,BC,3B 
DATA 9D,C3,9F,9D,C3,AD,9D,C3,B2,9D 
DATA C3,02,9E,C3,0A,9E,C3,13,9E,C3 
DATA 60,9E,C3,98,9E,C3,03,BB,C3,18 
DATA BB,C3,19,BD,C3,02,BC,C3,A7,BC 
DATA C3,C9,9E,C3,27,9F,C3,4E,9F,54 
DATA 52,45,45,2E,55,D0,54,52,45,45 
DATA 2E,44,4F,57,CE,46,49,52,53,D4 
DATA 4C,41,53,D4,4C,49,4E,45,2E,4F 
DATA CE,53,54,52,45,54,43,C8,33,50 
DATA 52,49,54,C5,43,4C,D2,44,45,4C 
DATA 45,54,C5,47,45,54,2E,4B,45,D9 
DATA 42,55,49,4C,C4,43,4F,4C,4F,52 
DATA 2E,4F,4C,C4,51,55,49,45,D4,53 
DATA 48,41,50,C5,47,52,4F,55,4E,C4 
DATA 4C , 4F , 4F , D0,00,64,65,0D , 0A , B7 
DATA C0,3C,47,AF,11,0D,13,21,00,00 
DATA C3,50,BC,B7,C0,C3,A2,9D,3D,B7 
DATA C0,6F,67,E5,EB,E5,29,29,29,29 


{OC} 
{EA} 
{MB} 
{NO} 
{HN} 
{LN} 
{CE} 
{ JF1 
{DM} 
{LI} 
{LJ} 
{PB} 
{OL} 
{KP} 
{DB} 
{KK} 
{MK} 
{AC} 
{DG} 
{II} 
{HK} 
{NN} 
{NO} 
{PA} 
{BD} 
{ON} 
{MH} 
{IG} 
{PH} 
{NI} 
{QH> 
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1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 

1450 

DATA 

1460 

DATA 

1470 

DATA 

1480 

DATA 

1490 

DATA 

1500 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

1660 

DATA 

1670 

DATA 


Dl,EB,29,29,19,11,00,90,19,EB 
El,D5,E5,CD,1A,BC,E5,26,00,1A 
6F,B7,20,04,E1,C3,FB,9D,2D,29 
29,29,29,29,11,00,99,19,EB,El 
0E,0B,E5,06,04,1A,77,13,23,10 
FA,El,CD,26,BC,0D,20,F0,E1,Dl 
13,24,3E,14,BC,20,CB,C9,3D , B7 
C0,2E,0D,C3,B6,9D,FE,01,C0,21 
05,9E,23,73,C9,FE,03,C0,DD,66 
04,DD,6E,02,25,CD,1A,BC,EB,78 
3D, 28,05,29,3D, 28,01 ,29,22,71 
A6 , EB , CD , 29 , BC, E5,11,50,00 ,19 
EB,E1,01,00,08,C5,E5,D5,ED,4B 
71,A6,ED,B0,E1,CD,29,BC,E5,D1 
El,E5,D5,ED,4B,71,A6,ED,B0,E1 
CD,29,BC,EB,E1,CD,29,BC,C1,10 
DC,C9,FE,03,C0,EB,06,05,29,10 
FD,11,40,9A,19,ES,DD,6E,02,DD 
66,04,25,2D , CD, 1A , BC , D1, 0E , 08 
£5,06,04,1A,B7,28,09,7E,B7,28 
03,32,70,A6,1A,77,13,23,10,EF 
El,CD,26,BC,0D,20,E5,C9,FE,03 
C0,EB,06,05,29,10,FD,11,40,9A 
19, E5, DD , 6E , 02 , DD, 66,04,25,2D 
CD,1A,BC,D1,0E,08,E5,06,04,1A 
B7,28,02,AF,77,13,23,10,F6,E1 
CD, 26, BC, 0D, 20, EC, C9 , FE, 03, C0 
EB,06,06,29,10,FD,11,40,98,19 
22,72,A6,E5,FD,E1,FD,E5,DD,6E 
02,DD,66,03,DD,5E,04,DD,56,05 
CD,1D,BC,22,74,A6,11,C0,9B,0E 
08,E5,06,08,FD,7E,00,B7,28,02 
7E,12,13,23,FD,23,10,F2,El,CD 
26,BC,0D,20,EB,2A,74,A6,D1,0E 
08,E5,06,08,1A,B7,28,01,77,13 
23,10,F7,E1,CD,26,BC,0D,20,ED 
C9.B7,C0,11,C0,9B,2A,74,A6,FD 


{KH} 

{OLJ 

CEI> 

{JD> 

{PO> 

{DI} 

{DI} 

{LN} 

{HM} 

{JL} 

{HK} 

{JB} 

{AC} 

{BB} 

{LM} 

{KL} 

{HM} 

{BC} 

{6D} 

{PN} 

{NM} 

{LK} 

{GC} 

{AM} 

{HH} 

{PM} 

{ME} 

{HM} 

{EA} 

{HO} 

{IC} 

{BE} 

{GN} 

{NO} 

{EE} 

{EH} 

{LD} 


1680 

1690 

1700 

1710 

1720 


DATA 2A,72,A6,0E,08,E5,06,08,FD,7E 
DATA 00,87,28,02,1A,77,13,23,FD,23 
DATA 10,F2,E1,CD,26,BC,0D,20,E8,C9 
DATA 3D,B7,C0,43,21,40,FE,2B,7C,B5 
DATA 20,FB,10,F6,C9,AF,B7,C2,37,BD 


{MD} 

{AH} 

{IM} 

{EE} 

{ME} 


ENDE DES LISTINGS 


Teil 5 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V 2.0 


1000 '- {OC} 

1010 •-TRICK BY TREES- {EA} 

1020 '— Part 5 TOPTEN — {10} 

1030 ’— (c) im Juni 1987 — {NO} 

1040 '— by Alexander Stroh — {HN} 

1050 ■- {LN} 

1060 DIM n$(10>,5(10),d$(10) {BL> 

1070 PRINT:PRINT”TBT TOPTEN..." {AG} 

1080 FOR 1=1 TO 10 {6A} 

1090 n*(l)="SUPRA-SOFT" {FC} 

1100 s(l)=10000 {IE} 

1110 d*<l>=”01.01.1987" {EK} 

1120 NEXT:PRINT:PRINT"PRESS ANY KEY TO S 
AVE..." {BL} 

1130 CALL &BB00:CALL SrBBlB {CG} 

1140 SAVE”! tbtdata. bin",b,&9000,&F60 {BB} 

1150 OPENOUT"!tbtop.fi1" {HL} 

1160 FOR 1=1 TO 10 {FBI 

1170 PRINT#9,n*<l) {AN} 

1180 PRINT#9,s(1> {FM} 

1190 PRINT#9,d*(I) {PB} 

1200 NEXT:CLOSEOUT:END {CP} 


ENDE DES LISTINGS 


Bewerbung als Programmautor 

Name: _ Vorname: _ Alter: _ 

Straße: _ Wohnort: _ 

Titel des Programmes: _ Computerservice: _ 

Erforderlicher Speicherplatz: _ KBytes Bitte legen Sie Ihrer Bewerbung einen adressierten und frankierten 

Rückumschlag (DIN A4, 1,40 DM) bei! 


Erforderliche Peripherie: _ 

Ich versichere hiermit, daß ich der Autor des obengenannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, 
daß Sie mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro ab¬ 
gedruckte Seite. Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Untelagen. Sollte mein Pro¬ 
gramm in der Zwischenzeit von anderer Seite erworrben worden sein, werde ich Sie unverzüglich benachrichtigen. Ich bestätige 
durch meine Unterschrift, daß ich Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren 
Urheberrechte sie nicht besitzen, rechtliche Schritte einleitet. 

Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten):_ 


Folgende Unterlagen liegen diesem Schreiben bei: 

Kassette: _ Diskette: _ Dokumentation: _ Listing: _ Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen euch die eines Erziehungsberechtigten):_ 

Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 


(Bitte zweimal unterschreiben!) 
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Das ist spi' 


Für einen 
von Ihnen 
geworbenen 

neuen 


erhalten 
Sie eine 

LCD- 

Quarzuhr 

mit Radio 

und 

Kopfhörer 


Leser werben Leser 


Bestellkarte und Gutschein 

Ich habe den neuen Abonnenten geworben! 
Dafür erhalte ich die LCD-Quarzuhr mit Radio 
und Kopfhörer. Ich weiß, daß Eigenwerbung 
nicht möglich ist. Die Prämie schicken Sie 
nach Eingang der Zahlung fürdas neue Abon¬ 
nement an folgende Adresse: 



Ich bin der neue Abonnent. Ich 
abboniere Compute mit zum nächst¬ 
möglichen Termin zum Preis von 42 
DM (Inland 12 Ausgaben) für minde¬ 
stens ein Jahr. Bei Lieferung ins 
Ausland beträgt der Jahrespreis 52 
DM. Das Abonnement verlängert 
sich automatisch um ein weiteres 
Jahr zu den dann gültigen Bedin¬ 
gungen, wenn es nicht 6 Wochen 
vor Ablauf des Abbonementjahres 
gekündigt wird. 


Name, Vorname 


Name, Vorname 


Straße/Nr. 


Straße/Nr. 


PLZ Ort 

PLZ Ort r 


Datum/Unterschrift 

Mir ist bekannt, daß ich diese Be¬ 
stellung innerhalb von 10 Tagen 
beim Vertag widerrufen kann. Zur 
Wahrung der Frist genügt die recht¬ 
zeitige Absendung des Widerrufs. 
Dies bestätige ich durch meine 2. 
Unterschrift. 


Datum/Unterschrift 

Mit dieser Neubestellung ist keine Abbestellung verbunden 


Datum/Unterschrift 


Ausschneiden und absenden an: 

Tronic-Verlag GmbH 

ABO Service 

Postfach 

3440 Eschwege 










Der Checksummer 


für die 

Schneider-Computer 
CPC 464 / 664 / 6128 


Was jeder Schneider-User 
braucht, das wird jetzt an die¬ 
ser Stelle veröffentlicht: Eine 
erhebliche verbesserte Check¬ 
summerversion. Nun ist es 
möglich, schon bei der Eingabe 
einer Basiczeile festzustellen, 
ob ein Eingabefehler begangen 
wurde. 

Buchstaben als 
Prüfsumme 

Hinter jeder Zeile finden Sie 
eine zweistellige Buchstaben¬ 
kombination, die von ge¬ 
schweiften Klammern einge¬ 
rahmt wird. Anhand dieser 
Prüfsumme kann die Eingabe 
auf Ihre Richtigkeit hin unter¬ 
sucht werden. 

Um ein beliebiges TRONIC- 
Programm abzutippen, gehen 
Sie wie folgt vor: Laden Sie zu¬ 
erst den Checksummer und 
starten Sie diesen mit RUN. 
Auf die Frage nach dem ver¬ 
wendeten Computertyp anwor- 
ten Sie bitte mit der Eingabe 
der entsprechenden Compu¬ 
terbezeichnung (464/664/6128). 
Anschließend wird der Check¬ 
summer aktiviert und der BA- 
SIC-LOADER automatisch ge¬ 
löscht. Nun können Sie mit der 
Eingabe des Programms be¬ 
ginnen. Ist eine Zeile komplett 
eingegeben, so wird diese wie 
üblich mit ENTER abgeschlos¬ 
sen. Unterhalb der Zeile er¬ 
scheint daraufhin die 
Checksumme. Stimmt diese 
mit der im Heft abgedruckten 


Summe überein, so wurde 
diese Zeile fehlerfrei eingege¬ 
ben. 

Stimmen diese beiden Zeilen 
nicht überein, liegt ein Tippfeh¬ 
ler vor, den Sie wie folgt korri¬ 
gieren müssen. 

Eingabe 
des Listings 

Starten Sie niemals ein Pro¬ 
gramm, wenn der Checksum¬ 
mer aktiv ist. Speichern Sie das 
Programm nach der Eingabe 
sofort ab. Die Checksummen 
Selbst werden nicht eingetippt. 
Sie können bei der Ein¬ 
gabe sowohl Groß- als auch 
Kleinbuchstaben 
verwenden.Bis auf eine Aus¬ 
nahme können alle Editier¬ 
möglichkeiten verwendet wer¬ 
den. Ausnahme: Eine Zeile 
kann nicht durch die Eingabe 
der Zeilennummer gelöscht 
werden. Um beispielsweise die 
Zeile 200 zu löschen geben Sie 
DELETE 200 ein.Leerzeichen 
die keine Bedeutung haben 
werden selbsständig ignoriert 
und gelöscht. Allerdings besit¬ 
zen Leerzeichen innerhalb von 
Anführungsstrichen einen Wert 
und verändern somit die 
Checksumme. 

Für den PRINT-Befehl kann 
auch das Fragezeichen ver¬ 
wendet werden. 

Viel Spaß und fehlerfreies Ein¬ 
geben wünscht 

OTTFR1ED SCHMIDT 


Das Listing 


1 *********************** 

2 '* SCHNEIDER CPC * 

3 '* CHECKSUMMER V 2.0 * 

4 ’* (C) 1986 * 

3 '* OTTFRIED SCHMIDT * 

6 *********************** 

7 * 

8 ' 

1000 DATA 3E,FF,32,00,AC,CD,22,BF,F5,C5 
1010 DATA D5,E5,2A,20,BF,CD,61,DD,B7,2B 
1020 DATA 54,E3,2A,20,BF,CD,6E,A0,E1,30 
1030 DATA 4A,CD,04 , EE,CD , A3 , E7,CD•63 , E1 
1040 DATA 2A,20,BF,06,FF,AF,4F,7E,FE,00 
1050 DATA 2G,03,81,AB,23,10,F3,B1,AB,4F 
1060 DATA 3E,0D,CD,SA,BB,3E,0A,CD,5A,BB 
1070 DATA 3E,7B,CD,5A,BB,79,E6,F0,1F,1F 
1080 DATA 1F,1F,C6,41,CD,5A,BB,79,E6,0F 
1090 DATA C6,41,CD,5A,BB,E1,D1,C1,F1,3E 
1100 DATA 7D,C3,5A,BB,C9,E1,Dl,CI,Fl,C9 
1110 DATA CD,61,DD,B7,37,C8,CD,04,EE,D0 
1120 DATA 7E,FE,20,20,01,23,CD,D2,E6,37 
1130 DATA 9F,C9,00,00,00,00,00,00,00,00 
1140 MEMORY 69FFFiF0R 1-&A000 TO &A0B3 
1150 READ a*iPOKE i , VAL < "6"+a#> i NEXT 1 
1160 CLSi INPUT 11 BENUTZEN SIE EINEN CPC 46 
4/664 odar 6128" |v* 

1170 IF v*<>"464" AND v*<>"664" AND v*<> 
"6128" THEN PRINT CHR*<7>iBOTO 1160 
1180 IF v*-"464" THEN adr-6BD3Aipufa-6A4 
ELSE IF v*-"664" THEN adr-6BD5Bipufa-6B 
A ELSE adr-6BD5Eipu<a-6BA 
1190 POKE 6BF20,pufaiPOKE 6BF21,8<AC 
1200 POKE 6BF22,PEEK < adr)lPOKE 6BF23,PEE 
K<adr+l)iPOKE 6BF24,PEEK(adr+2) 

1210 POKE adr ,«cC3i POKE adr+1,01 POKE adr+ 
2,6 AB 

1220 IF v*-"664" THEN GOTO 1230 
1230 IF v*-"612B" THEN GOTO 1300 
1240 GOTO 1340 

1250 POKE 6A010,«<521POKE 6A011 ,&DEiPOKE 

6A06F,8(521 POKE 6A070,6DE 

1260 POKE (kA020, 6D41 POKE 6A021,6EElPOKE 

*A073,6D41POKE 6A076,6EE 

1270 POKE 6A07F , 4»AAI POKE ItA0B0 , 6E71 POKE 

6A023,669iPOKE 6A024,6EB 

1280 POKE 6A026,659aPOKE 6A027,6E2 

1290 GOTO 1340 

1300 POKE 6A010,64DiPOKE 6A011,6DEiPOKE 

6A06F,64DiPOKE 6A070,6DE 

1310 POKE 6A020,6CFiPOKE 6A021,6EEiPOKE 

6A075,6CFiPOKE 6A076.6EE 

1320 POKE 6A07F,6A5iPOKE 6A0B0,6E7iPOKE 

6A023,6641POKE 6A024,6EB 

1330 POKE 6A026,654iPOKE 6A027,6E2 

1340 CLBiPRINT"CHECKSUMMER V2.0 IST JETZ 

T AKTIV!" 

1350 NEW 
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KLEINANZEIGEN 


KONTAKTE 


Such« Tauschpartner für Plus 4 und 
1541. Verkaufe C-64 und C-16 Spiele 
auf Kassette. 

Thomas Bianca 
Ludwig-Uhlandstr. 6 
4840 Rheda-Wiedenbrück 
Tel.: 05242/47569 


Moment mal!!! 

Der Kanller! Wir sind ein Super-Club, 
über 300 Mitglieder. Nur CI 6/116/+4 
Besitzer! Immer tolle Angebote, z.B. 50 
verschiedene Programme unserer Wahl 
für nur 15 DM. Die Gelegenheit. Tolle 
Preise. Holt Euch Clubanmeldung und 
Angebotsliste gegen 80 Pf bei: 
Alexandra Claudia Tiefen 
PLK 110149 C 
4000 Düsseldorf 1 
Es lohnt sich, nichts versäumen! 


Plus 4 suche Tauschpartner in al¬ 
ler Welt. Massig Software da. 100%ige 
Antwort. Suche auch ROM-Listing. Lis¬ 
ten an: 

T. Nitschke, 

Im Vogtland 67, 

4790 Paderborn 17 


C-16/116/Plus 4-Anwender 

Der Verein speziell für uns! Mit Clubzeit¬ 
schrift und Software-Bibliothek. Info 
beim: 
hrc e.V., 

Bauerland 15, 

4800 Bielefeld 1 


Tausche, kaufe, verkaufe!!! 

C-16 auch 64K Games. Besitze 200 
Top-Games. 

Liste an: 

Martin Galan, 

Im Beckmannsfeld 
4300 Essen 13 
Tel.: 0201/590469 


Suche Tauschpartner für Plus 4 und 
1551. Verkaufe Maus und 
Einjustierplatine. 

Thea Hölter, Langestr. 99 
4840 Wiedenbrück 
Tel.: 05242/7691 


C-16 + Plus 4 Tausche und verkaufe 
Top-Software, Spiele + Anwender, Li¬ 
ste gegen Rückporto an: 

M. Jacobs, Magdeburgerstr. 3, 

6349 Driedorf 


Tausche C-16 mit 64K -t- Datasette 
+ Joystick + Spiele imWert von 150 
DM gegen C-64 mit Handbuch. 

Tel.: 040/6449573 


Achtung Plus 4 USER !!! 

Habe Original ACE (64K) Kassette. Wer 
tauscht gegen ACE (64K) Diskette? Bitte 
melden bei: Peter Wolf, 

Tannenweg 4, 8873 Hochwang 


DRINGEND!!! 

Suche Tauschpartner für C-64 Disk! 
Habe leider kein Telefon. Schickt Eure 
Listen an: 

Gerd Schuh, Univ. d. Saarl. Bau 22, 
6600 Saarbrücken 


SUCHE 


Raalschülar sucht dringanst 
Floppy 1641 für schulische Arbeiten. 
Preis vorerst bis 200 DM. 

Laurens Homann, Rentershofen 28, 
8999 Roethenbach 
Tel.: 08384/1299 


Hay Fraaks aufgapasst! 

Wer schenkt oder verkauft mir tadello¬ 
sen Floppy 1551. Falls Verkauf günsti¬ 
ges Angebot machen. 

Tel.: 08221/32297 nur Samstag und 
Sonntag! 


Sucha Plus 4 evtl, mit Floppy und 
neueren Spielen. Sollte nicht allzu teuer 
sein. Angebote an: 

Michael Rapp, Hauptstr. 19, 

7939 Öptingen 


Sucha Druckar für Plus 4 bis 200 

DM. Suche Kontakte zu Plus 4-Usern im 
Raum Düsseldorf. 

Tel.: 0211/462624 ab 17 Uhr. 


Sucha gabrauchtan DRUCKER 

und Disketlengerät für Plus 4. 

Rolf Horlacher 
Franz v. Salesstr. 26 
4830 Gütersloh 11 



Computerservice 
Tino Hofstede 
An der Windmühle 
5010 Bergheim 5 



Programmkatalog 


mit ernsthaften Programmen und Spielen für 


’Amiga *C 16/116 
*C128 • Plus/4 

•C 64 -VC 20 

gegen 2 mal 80 Pf in Briefmarken 


Attantion!!! 

I’m searching for 64K-RAM Software für 
C-16 (Tape). 

Floppy 1541 mit Bedienungsanleitung. 
Gebrauchten Drucker für C-16. 
Angebote an: 

Rolf Büchner 

Kemmater Str. 22, 8632 Neustadt 
P.S. Suche Tauschpartner nur Tape! 


Sucha voll funktionstüchtig an 
C-16 bis 50 DM. Angebote nur schrift¬ 
lich an: 

Mario Cichos, Beckstettener Str. 9, 
8950 Kaufbeuren 


Softwara für SCHNEIDER JOYCE 

sucht privat, z.B. Vereins- und 
Adressverwaltung, Kalkulation, Grafik 
usw. 

Winfried Ade, Sommerhalde 20, 

7238 Oberndorf 
Tel.: 07423/7170 


Sucha Anwandarprogramma die 

druckerfähig sind. Wer schreibt evtl. Li- 
sting für (Haushalt, Termin, 
Datei Verwaltung). Bitte nach 18 Uhrarv- 
rufen unter 
Tel.: 0471/415241 


Sucha Soft- und Hardware 

Anwendung Sonnenkollektoren- 
Steuerung, Zeitmessung mit 
Lichtschranke für Ski und Automo¬ 
bilsport. Rechner: Plus 4. 

Hans-Sigurd Schäfer 
Kirchweg 6, 3559 Allendorf 


BIETE 

HARDWARE 


NEU!!! C-16(64K) & Plus 4 User auf- 
gepaBt! 'Eprombank* mit 384 KB - auf 
1,1 MB zu erweitern - schaltbar - in se¬ 
paratem Gehäuse - “Gebrauchsmuster 
angemeldet* - Sowie menuegesteuerte 
Anwenderprogramme auf Eprom als Au- 
tostartmodule bald lieferbar!!! 

Info gegen Freiumschlag (50 PF. Porto) 
Jürgen Braunroth, Moordorferstr. 30, 
3057 Neustadt/Rbge. 1 


C-16 (64K) Spaichararwaitarung 

nur 50 DM! Bausatz mit allen Bauteilen 
und ausführlicher Anleitung. Umschalt¬ 
bar! Schein an: Dirk Schönknecht, 
Nordwall 10, 3100 Celle 


Varkaufa C-16 mit Datasatta, Joy¬ 
stickadapter, 15 Top-Spielen etc. in C- 
16 Originalverp. für 160 DM. Bitte mel¬ 
den bei: Rainer Rohm, Tel.: 02445/7653 


C-16 + Datasatta + Joystick zu ver¬ 
kaufen. VK: 150 DM + Porto. 

Dirk Meinel, Duisburger Str. 89, 

4100 Duisburg 11 


Varkaufa C-16 mit umfangreichem 
ZUBEHÖR (Datasette, Joystick) und vie¬ 
len Originalprogrammen: ACE, Winter- 
olympics, Spacepilot, Ghost’n Goblins, 
Yie are... VB300 DM. Tel.: 08383/78849 


CRC 464***CPC 464***CPC 
464*** 

Ich suche Summergames, Worldgames, 
Mountic Mick’s Deathride, Starfox, Zig- 
gutat, Party Girl, Sexgames u.a. gün¬ 
stig. Angebote an: 

Rene Wilming 
Rütenbrockerhauptstr. 34 
4472 Maren 2 


ACHTUNG!!! 

C16 (64K) & Plus 4 User!!! 2. Betriebssystem 
absturzfrei umschaltbar -verschiedene 
Modul-Programme aut Eprom, z.B. LOGO 
-usw. - Deutsche 3 plus 1 (auch im C 16) - * * * 
AuBerdem für C-16/116 die starken Netzteile 
1200 mA DM 35 incl. Steuer, Porto & Verpa¬ 
ckung. Nur Vorkasse! Info gegen Freiumschlag 
(50 Pf. Porto). 


Haben Sie Ihren C-16/116 
schon auf 64 K aufgerüstet? 

NEIN! 

Dann nutzen Sie schnell 
den Hardware-Service 
des Tronlc-Verlages 

Unser Anbgebot: 64 K-Spelchererweiterung 

Bausatz - bestehend aus: allen Bauteilen und aus¬ 
führlicher Anleitung, umschaltbar 64K/16K - geliefert 
in stabiler Hartbox. 

Bestell-Nr.: HWS-1-16 (C16) 45,- DM + NN 

Bestell-Nr.: HWS-1-116 (0116) 45,- DM + NN 

(Bei Vorkasse + 2,- 0M Versand, Ausland nur gegen Vorkasse, Bearbeitungsdauer 
bis zu 3 Wochen, Bestellungen bitte nur seperat vom Software-Service!) 

Bitte Computertyp angeben! 

Tronic-Verlag GmbH 

Postfach 870 • 3440 Eschwege • Tel. (0 56 51) 3 0011 
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KLEINANZEIGEN 


BIETE 

SOFTWARE 


Fraasoftwar« für C-16/116/Plus 4 

20 Disk nur 55 DM oder Liste gegen 
Rückporto von Viktor Jürgens, 
Prinzenstr. 131, 2330 Eckernförde 


An all* C-16/Plus 4 Ussrl 

Verkaufe Spiel- Kopier- und Anwender¬ 
programme. Alles auf 2 Disks! Z.B. Pin 
Point. Bounder, Paintmaster, Super- 
Copy...) Alles für nur 20 DM Vorkasse! 
Marc Brunsmann, Bernhardstr. 12, 
2843 Dinklage (auch Tausch) 


Naul Sailing Simulator 

Spitz en-Software für C-64 und CPC 464. 
Info und Bestellungen an: 

Anton Lowas, Talstr. 34 
7044 Ehningen 

Programm mit Handbuch für C-64 89 
DM, für CPC 464 89 DM per NN. 


C-16/Plus 4 Kassette mit 6 Psychotest 
+ 10 Spielen + 2 Grafikshows nur 10 
DM. Schein an: 

Jörg Drescher, Lütjenburger Str. 69, 
2300 Kiel 14 


C-16(64K)/Plus 4 Super-Soft wara 

Verkaufe Kopierprogramm für Disk- 
Disk, Disk-Tape, Tape-Disk und Tape- 
Tape incl. Turbo-Tape, Dia-Show und 
weitere Top-Anwender. Alles auf einer 
Disk gegen 15 DM bar in Vorkasse. 
Tausche auch: schickt Listen! 

Robert Waltereit, Donaustr. 51, 

2800 Bremen 1 

Tel.:0421/504879 nach 15 Uhr. 


C-16/116/Plus 4 

Verkaufe Super Uhr mit Sekunden An¬ 
zeige, Stundensignal und Alarmeinrich¬ 
tung. Das Spiel Profi-Jumper. Schickt 19 
DM an: 

Christian GaBner, Dillingerstr. 30, 

8901 Langweid 

und Ihr bekommt schnellstens Eure 
Software zugesandt. Nur Tape!!! Vorrat 
unbegrenzt!!! 24h Anz.ü! 


EROTIKA - außergewöhnliches Adven- 
ture, aufregende Bilder, 3 Disks, 
deutsch, C64/128 für 29.95 DM. ERO¬ 
TIKA II für 19.95 DM, beide für 39.95 DM 
+ NN. Holger Schmidt 
Louise-Schröder-Str. 7 
3000 Hannover 61 


Public-Domain C-16/Plus 4 

Viele interessante Programme nun end¬ 
lich nach Sachgebieten geordnet. Pro¬ 
gramme für Schule, Beruf, Dateien, 
Adventures, Druckerutility und viele 
Spiele! Anwendung für Computer, 
Floppy etc. Liste und randvolle Probe¬ 
disk nur 10 DM bei: 

F. Eitner, 

Dr. Beber-Str. 17, 

2222 Marne 


Fraasoftwara für C-64 

60 Diskseiten a 2,50 DM. Liste gegen 
Rückporto von: 

Viktor Jürgens, 

Prinzenstr. 131, 

2330 Eckernförde 


Verkaufe für C-16 + 64K: Merce- 
nary + Sec. City + Saboteur + ACE 
1 + Karate King je 7 DM, alle = 30 DM. 
Disk oder Tape! 

Für16K: 10 bekannte Spiele = 15 DM. 
Disk oder Tape. Alles incl. Anleitung + 
Datenträger, kein Schund! 

Ralf Stricker, Wacholderring 17, 

4330 Mülheim 

Tel.: 0208/480842 ab 19 Uhr! 


C-16/Plus 4 Erotika-Special ist 
da!!! 

Es ist gerade aus England eingetroffen. 
200 Super-Bilder. Natürlich digitalisiert! 
Sofort bestellen, wegen ständiger Nach¬ 
frage! Preis 30 DM (10 Diskseiten), 40 
DM 3 Kassetten. 14 digitalisierte Lieder 
auf 2 Dis (2seitig) nur schlappe 20 DM! 
Nur Vorkasse! 

Byte-Soft 
Tilsiteretr. 13 
5000 Köln 60 


Biete Software für C-16/Plue 4! 

Ca. 450 Spiele und Anwenderpro¬ 
gramme. Liste gegen 2 DM Rückporto 
bei: 

Rainer Berg, Bebelslr. 36, 

2948 Schortens 1 


Public-Domain Software!!! 

C-64/128 über 300 Programme aus fast 
allen Bereichen. Preisliste gegen 80 Pf. 
bei: 

Andreas Knoblauch, Hauptstr. 113, 
7926 Böhmenkirch 


Plus 4 M + T High Screen CAD 

Drei Disketten beidseitig bespielt mit 
Bildern für das M + T Programm nur 20 
DM. Bar oder Scheck an: 

Detlef Kurta, Chauseestr. 13 a, 

1000 Berlin 39 


X 

X 

X 

X 

X 

X 

X 

X 
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X 
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Datenfernübertragung 

C64 C128 PLUS4 C16 

Mailboxen, DATEX-P, Telebox ja sogar VIDEODAT, 
Bildschirmtext und VIDEOTEX 
DFÜ-Anlagen für alle Commodore Computer auto¬ 
matischer Wahl von dem Computer, Wahlwiederho¬ 
lung, Kurzwahlziffern, 150-Tel.-Nr.-Speicher, 
bis 48 KB Speicher 

Für CI 6 Extra Doppeluserport mit RS 232 
DFÜ-Anlagen ab DM 198,00 INFO bei 

GUSS DATA CONNECTION TEL (0 27 23) 66 79 


x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxx 


'DiCUnOttd Sorft- Mönchengladbach 

Regentenstraße 178 • ® (02161) 21639 

Ihr Spezialgeschäft für Spiele und Anwendungsprogramme 
Zubehör + Computertuning 

Top-Neuheiten, günstige Preise, erst testen, dann kaufen 

AMIGA * C64 * SCHNEIDER CPC * ATARI ST * C16 * ROSSMÖLLER 

C-S4/12S Qwdm Disk Kass. 

C-64/12S Strategie 

68000'er Qamee Amiga ST 

Akbome Ranger S4 96 44 96 

Atem Woridgamee 44 96 34.66 

Baak« Maeter 3996 29 96 

Champion. Sprint 44.66 34.96 

Chuek Ytagen A FT 66.66 

Qryzor 44 96 34 96 

tnogud 44.96 »4.96 

Jagd aut R. Ottober 64.96 44 96 

Ptatoon 39.96 29.96 

Predtfor 44.96 34 96 

P.H.M Pagaue 66 66 

8uperat loehookey 44.96 94.96 

Super* Soooar 44.96 »4 96 

Starth FlgMer 66 96 44.66 

Taak II 39.96 29.96 

Talfla 39.96 29.96 

The Train 64.96 

Vampirw Empire 44.66 »4 96 

BatUagroup 89 96 

Gantern at War Be 66 

Cerrlar Foma 79.96 

Computer Amtouah OB 96 

Europa AMeoa 99 96 

Qetryeburgh 99.96 

Haie of Montasuma 69.96 

Kamplgruppe 79 96 

Oparat. Marfcatgardan 66.96 

Ruaeia 6696 

Rabat Charge 66.86 

SMo 69.66 

U.S. A.A.F. 66.66 

WanMp 7996 

War l.l 6ou9tpaoMo 99 96 

Wargame Conatr. Bai 89.96 

Wergame Qiaaiaat 86.86 

Wtng» ol War 66 96 

Bard'a Täte 9996 99 96 

Clever 6 Smart 66 96 89 96 

(Mander o t Crown 79 96 79.96 

Omtrvfm 99 96 

Dungeon Maaler 99 96 

Enduro Raoar 99.98 

Qunahip 6996 

Porte ol Cafl dto. 86.96 

Roadwam 86 96 

Shadowgala 88.88 

Sa Wan 89 96 86 96 

TeetOrtve 79.96 79.96 

Tatrta 88 88 

Time BandB» 6666 

TerrameK 89 96 86.96 

UM8 89.86 

Vjjar 74 86 

tMnWr Ofympioe 44 89 96 89.96 

Versand per NN + DM 5, - Porto/Verpackung 

Lassen Sie sich von unserer Schnelligkeit überzeugen! 

24 Std. Bestellannahme 

Ladenlokel: 4050 Mönchengtadbech 1, Regentenstr. 178 

(02161) 

21639 


DREAM-Oirls - pikantes deutsches 
Adventure, gewagte Supergrafik, 4 
Diskseiten, C-64/128 für 29.95 + NN. 
Marcus Ahrens, Am Quälberg 6a, 
3170 Gifhorn, auch Infos. 


C-16/116/Plus 4 

Verkaufe 11 Originale, Top-Spiele wie: 
POD, Bongo, Return, Rockman, Tutti 
Frutti, Mr. Puniverse, One man and his 
Druid, Fingers Malone, Molecule Man, 
Roboknight, Video Meanies, BMX Ra- 
cers für faire Preise: 79.90 DM!!! 
Christian Prith, 

Am Knick 8, 

3206 Lamspringe 
Tel.: 05183/2837 


Plus 4 Lsrnprogrammms C-16 

Vokabeltrainer 
Grammatiktrainer englisch 
Grammatiktrainer französisch 
Rechentrainer 

je 15 DM + Nachnahme. Gratisinfo von: 
I. Thurm, Postfach 16 71, 

7060 Schorndorf 


Verkaufs laufend auf Diskette die 

neuesten Spiele und Anwenderpro¬ 
gramme für Commodore C-16/Plus 4 
Diskette für 20 DM voll. 

Tel.: 05221/15281 ab 19 Uhr. 


C-16/Plus 4 NOVA-COPY ist da! 

Damit können Sie ihre Original- 
Kassetten mit Novabak und Autostart 
auf Disk kopieren! 

ACHTUNG: 

Dieses Programm darf nur für Sicher¬ 
heitskopien genutzt werden. Der Auto¬ 
start wird absorbiert! 

Programm wird auf Disk geliefert mit 
Anleitung: 

Preis 20 DM in bar! 

Byte-Soft 
Tilsiterstr. 13 
5000 Köln 60 


C-16 -18 Spiele für DM 10,- - C-16 

Über 150 KByte Software, davon ganze 
100 in Maschinensprache. Lieferbar auf 
Diskette oder Kassette. 

Einfach Brief mit 10,- DM Beilage schi¬ 
cken an: 

Hartmut Ott, 

Gartenstr. 37, 

7408 Kusterdingen 


C-16/Plus4 Biete Top-Software zum 
Tausch und Verkauf. 664 BL. für 15,- 
DM + Porto. 

Liste gegen Rückporto bei: 

Horst Meyer, 

Overguenne 89, 

4600 Dortmund 30 


Sven Faulhaber's Softwareversand 


Dein Partner in Sachen Computer 

Wir haben Soft- und Hardware 

für den VC 20 

und die allerneusten Games von bekannten Herstellern 

für C64 und PC 128 

sowie 

C16, C116 und Plus 4 
zu den totalen Dumpingpreisen! 

Einen Katalog erhälst Du gegen 80 Pf. Rückporto von 

SF Soft, Mühlenweg 7, 3401 Seulingen 

Bitte unbedingt Computersystem angeben! 
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KLEINANZEIGEN 


Gewerbliche 

Kleinanzeigen 


$ SAMSON, das Tapa to # 
O, Disk-Programm, ^ 

^ mit dem sich über 400 Pro- ” 
$ gramme kopieren lassen, auch sjc 


* 


Headerlose. Das Besondere, es . 


* 

* 


wird laufend ergänzt. 

5}c Softwarehandel F.G. Weber 
jk Hallerhüttenstr. 6 
, 8500 Nürnberg 40 

♦ Tel.: 0911/499103 * 

♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ Plus 4 . C-16 . C-64 ♦ 

i Larnprogr. * 

^ Techn. Mathe + Grafik zu ree- ~ 

♦ lern Preis Zahnr., Festigk., ♦ 
a Hydr., Geometrie, Bruchrechn., a 

Vokabeln -Cass/Disk. Kat. 1 DM 

♦ Briefm., Comp. Typ angeb. ♦ 

4 Anita Ristau, Peetzweg 9, 4 . 

^ 3320 Salzgitter 1 ^ 

♦♦♦♦♦♦♦♦♦♦♦♦ 

0r CAD mit PIUS4/C-16/116 CAD ft 

ft ft 

" Einfache Bedienung * über 60 “ 
W Editier-und Zeichenbefehle * 16 w 
^ Ebenen * Symbol- und Ob- (y 
. jektbibliotheken. Info gegen . 

** Rückporto bei: “ 


ft Dipl. Ing. M. Rätzel 
^ Ulvenbergstr. 6 
w 6100 Darmstadt 13 


ft 
ft 

ft ft 

ftftftftftftftftftftftft 


& C*16/Plus 4GRATIS-INFO'& 

Spiele - Anwender - und -g, 
" Kopierprogramme/Hardware. ” 
w Gratis POKE-Liste bei: 

Thomas Görtz ^ 


Postfach 11 05 18 
i 1 6100 Darmstadt 
> Postkarte genügt!!! 


* 


############ 

t? Info für C-16/64/116/ + 4Ü 
£V und CPC464 

XL JUPITERSOFT XL 

v? Höttinger Str. 34b v? 

# 8836 Ellingen $ 




lüComputertyp angeben!!! 


Ü 




************ 

* Oratislista für Schneider CPC * 
+ Commodore 64 bei: 

" Friedrich Neuper „ 

* Postfach 72 * 

* 8473 Pfreimd -#■ 

^ Bitte Computertyp angeben!!! ^ 

************ 

•J* »J* *|« 

^ NEU ft 

-j- -T* 

I Speedtrans 6128 kopiert speed- : 
T lockgeschützte Programme. Ko- ft 
>J- piert ca. 200 Programme und >J< 
. das nur auf Knopfdruck. Preis 50 . 
ft DM bei: ft 

^ ft 

.» Softwarehandel Weber » 

^ Hallerhüttenstr. 6 *** 

ft 8500 Nürnberg 40 ft 

.J. Tel : 0911/499103 .j. 

»j« *|* -1- -J- -1- «j« -J- ••• #|« 

■fr ■fr 

A Achtung A 

, Commodort-Uur “ 

V Achtung! ft 

ft Wir liefern Software und Zube- A 

■ hör für C-64, C-128, C-16, Plus . 

■ 4, Amiga und Atari. Fordern Sie ft 
ft unsere kostenlose Liste an. ft 

. BERLAU-Soft . 

1 Postfach 14 15 ft 

ft 2150 Buxtehude ft 

ftftftftftftftftftftftft 


In eigener Sache: 


Aus gegebenem Anlaß weisen wir 
nochmals daraufhin, daß private 
Kleinanzeigen nur gegen Vorkasse 
veröffentlicht werden. 

Außerdem behält sich der Verlag vor, 
bei allen Anzeigen die von der 
Bundesprüfstelle indizierten Pro¬ 
gramme ersatzlos zu streichen. 

Wir bitten um ihr Verständnis! 


Biete Supersoftware für CPC’s 

entweder Liste anfordern oder Katalog¬ 
diskette (für 10,-DM) bei: 

Andrä Piachin, Auf Mathiasberg 9, 
5446 Kempenich 


An alle Schneider-Freaks! 

Verkaufe 600 Topgames und Anwen¬ 
derprogramme. Gratisinfo bei: 

Ansgar Huetten, Schwartenpohl 11, 
4455 Wietmarschen 2 (nur Disk) 


Verkaufe für C-16 und P/4 Pro¬ 
grammsammlung mit 22 Program¬ 
men für 22,- DM (Anwendung + 
Beispiele) auf Kass ./Disk. Bitte Speiche¬ 
rausbau angeben! Oder Programm 
Rechnung zum Erstellen von Rechnun¬ 
gen für 17,- DM! Incl. Porto + Verpa¬ 
ckung; Vorkasse! Bei: Your Soft, 
Gordon Hische, Zum Eichtal 20, 

5370 Kall 6 


Superbase + 4 zu verkaufen. 
Außerdem verschiedene Spielkassetten 
für 1/3 des Neupreises. Tel. 04209/5390 
ab 18.00 Uhr. 


Sexmission - erotisch, freches 
Science-Fiction Adventure, Fantasy, 
Girl-Adventure Ihrer T räume, je 2 Disks, 
deutsch, C-64/128 Supergraphik, je 
39,95 DM - 1 - NN, beide 59,95 DM + 
NN. Hot Girls-Dia-Show 14,95 DM, 
Dirty-Western-Comic 24,95 DM. 

H. Schmidt, Louise-Schröder-Str. 7, 
3000 Hannover 61, 

Lieferung sofort, auch Infos! 


Commodore VC -20 

Ständig Neuheiten 4 Software direkt 
aus England; gibt’s das noch? 

Ja! Bei: X-TRA Daten-Dienst, Col- 
marer Str. 57, 7000 Stuttgart 40. 
Katalog mit Soft- und Hardware, Bü¬ 
chern, Fachzeitschriften usw. Kosten¬ 
los. Commodore VC-20 


P4 Verkaufe 2 Disk’s voll mit Top 
Software (Sprachdemos) für nur 20,-DM. 
Info gegen Freiumschlag. 

A. Jungheim, 

Tulpenweg 4, 

3430 Witzenhausen 6 


83 Original-Spiele auf 24 Kass. (1 
Kass. ab 5,- DM) zu verkaufen. Liste ge¬ 
gen 80 Pf-Briefmarke: 

Dirk Meinel, 

Duisburger Str. 89, 

4100 Duisburg 11 


VERSCHIEDENES 


C16/116/Plus 4* *C16/116/Plus 4 

Spielepokes für Topspiele wie: POD, 
Commando, Skyhawk, Rockmann... Alle 
Pokes mit Startadresse des Spieles. Die 
Pokes wurden aus keiner Zeitschrift 
entnommen, sondern bei uns entwi¬ 
ckelt. Info gegen 80 PF-Briefmarke bei: 
Jörg Kelle 

Hildesheimer Str. 14 a 
3206 Lamspringe 
Tel.: 05183/2837 


Verkaufe Computa mit, 64er, Com- 
pute mit SH, 64er SH, Commodore 
Welt, HC Commodore-Welt SH, ASM, 
Run, Happy. Liste bei: 

Mike Wieland, 

Danziger Str. 7, 

4430 Steinfurt 
Tel.: 02551/80907 


Computa mit 11/88 bis 3/88 (29 

Hefte) für 50 DM oder Compute mit 
Sonderheft 1/86, 2/86 und 1/87 für 10 
DM. 

Dirk Meinel 
Duisburger Str. 89 
4100 Duisburg 11 
Tel.: 0203/587972 


C-16/plus 4 folgende Sonderhefte ab¬ 
zugeben mit Diskette: Compute mit 
3/86,2/87,3/87,4/87 je Heft mit Diskette 
für 20 DM. Original-Kassetten 
abzugeben: 

Robtek-Turbo-Tape 10 Times für 10 DM 
Winter-Olympics Tynesoft für 15 DM 
Tutti Frutti für 7 DM + 3 DM für Porto 
Jörg Hildebrandt 
Schlenkenbrink 25 
4973 Vlotho-Uffeln 


C-64 Hard- und Softwara! 

Hardcopy-Modul - druckt jeden 
Bildschirminhalt -mit 4 Diskseiten voll 
mit Grafiken nur 39 DM! Lichtgriffel mit 
Listing nur 26,50 DM! Anwender- und 
Spielesoftware ab 1 DM! Info bei: 
Patrick Pawlowski, 

Wasserwerkstr. 18, 

2177 Wingst 

Legt 10 DM bei und Ihr erhaltet 25 Pro¬ 
gramme auf Disk/Kass., EPROM- 
Programmiererservice! 


I Inserentenverzeichnis: 

Computerservice T. Hofstede 

S.61 

Diamond Soft 

S.62 

Sven Faulhaber’s Softwareversand 

S.62 

Gewerbliche Kleinanzeigen 

S.63 

Guss Data Connection 

S.62 

Tronic-Verlag GmbH 

S.61/64 

Anzeigenschluß für Heft 6/88 
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Das erste und einzigartige 



SOFTWARE-MAGAZIN 

aktuelle Ausgabe glbt’s jetzt überall 


des 

Softwar e-Markl e> 


132 Seiten Programme im Test 
der Software-Markt auf einen Blick 
speziell gesuchte Software kann direkt 
beim Hersteller bestellt werden 
für alle Anwender von Heimcomputern 


